更多"单击窗体时，下列程序代码的执行结果为______ 。 Priva"的相关试题:
[单项选择]单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click（ ） S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function
A. 20
B. 35
C. 115
D. 135
[单项选择]单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m/10 End Sub PrivateSubCommandl_Click（ ） Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub
A. 12 34
B. 2 34
C. 2 3
D. 12 3
[单项选择]单击窗体时，下列程序段的执行结果为( )。 Private Sub Form_Crick（ ） Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub
A. 在窗体上画一斜线，从斜线终点处开始打印两行符号
B. 在窗体上画一斜线，从斜线起点处开始打印两行符号
C. 在窗体上画一斜线，从窗体左上角开始打印两行符号
D. 从窗体左上角开始打印两行符号，从符号结束处开始画一斜线
[单项选择]现有以下程序代码： Private sub Form_click( ) Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是( )。
A. 4
B. 0
C. 2
D. 以上都不对
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click（ ） Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub
A. 2 5 8
B. 7 4 1
C. 8 5 2
D. 3 6 9
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click（ ） k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是
A. 20
B. 32
C. 44
D. 78
[单项选择]单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click（ ） Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub
A. 32 42
B. 2 32
C. 2 3
D. 12 3
[单项选择]运行下面程序代码后，变量J的值为 ______。 Private Sub Fun（ ） Dim J as Integer J=10 DO J=J+3 Loop While J＜19End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后，变量J的值为______。 Private Sub Fun（ ） Dim J as Integer J=10 Do J=J+3 Loop While J＜19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后，变量J的值为______。Private Sub Full （ ） Dim j as Integer J=10 DO J=J+3 Loop While J<19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]单击命令按钮时，下列的执行结果为 Private Sub Command1_Click（ ） Dim x As Integer，y As Integer x=86：y=29 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A. 12 32
B. 6 29
C. 2 3
D. 12 3
[单项选择]单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click（ ） Blck 2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]运行下面程序代码后，变量J的值为______。 Private Sub Fun （ ） Dim J as Integer J=10 DO J=J+3 Loop While J＜19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub
A. 15
B. 16
C. 17
D. 18
[单项选择]单击命令按钮，下列事件过程的执行结果为 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub
A. 0 8
B. 40 72
C. 4 50
D. 78 50
[单项选择]单击命令按钮时，下列程序的执行结果为 Private Sub Command1 Click（ ） Dim x As Integer，y As Integer x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A. 1232
B. 232
C. 23
D. 123
[单项选择]单击一次命令结束后，下列程序的执行结果是 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]单击一次命令结束后，下列程序的执行结果是( )。
Private Sub Commandl_Click( )
s=Sat(1)+Sat(2)+Sat(3)+Sat(4)
Print s
End Sub
Public Function Sat(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
Sat=Sum
End Function
A. 15
B. 25
C. 35
D. 45
