首页/ 题库 / [单选题]当Form_Click事件发生时,程序输的答案

当Form_Click事件发生时,程序输出的结果是 ______。 Private Sub Form. Click() Dim a As Integer,b As Integer,c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c>=5 End Sub

单选题
2022-06-15 21:35
A、1 1 1
B、2 3 5
C、2 5 7
D、2 3 4
查看答案

正确答案
B

试题解析
解析:当发生窗体单击事件时,首先给变量a和b赋值1,然后输出为11,并换行,执行循环,c值为2,输出2后不换行,进行赋值后a为1,b为2,判断“c>=5”为False,继续执行下一循环。第二次循环输出c值为3,循环终止条件仍为False。第三次执行后,c值为5,循环终止条件为True,循环退出。因此输出的第二行为“235”。

标签:
感兴趣题目
若在PRIVATE Y后加一条PRIVATE X语句,则程序执行后的显示结果为 ______。
下面程序的输出是______。Private Sub Command1_Click() Print 73End Sub
下列程序执行后的输出结果是______。
执行下列程序后,鼠标单击窗体,输出结果为。 Private Sub Form_Click() Print“Click”; End Sub Private Sub Form_MouseDown(Button As Integer,Shift_ As Integer,X As Single,Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer,Shift_ As Integer,X As Single,Y As Single) Print“Up” End Sub
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
以下程序的输出结果是______。 main() {printf("%d ",NULL); }
在窗体上添加一个文本框,其名称为text1,然后编写如下的Load事件过程,则该程序的运行结果是______。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd Sub
当Form_Click事件发生时,程序输出的结果是 ______。 Private Sub Form. Click() Dim a As Integer,b As Integer,c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c>=5 End Sub
下面程序执行的结果是______。 Private Sub Form_ Click() A$=“123”:B$=“456” C=Val(A$)+Val(B$) Print C100 End Sub
当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i <= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub
下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub
写出下列程序[如图1]的运行结果:若程序运行后程序= THEN输入x = -2 ,则输出的结果为 ____输出______ .
相关题目
中断发生时,由硬件更新程序计数器PC,而不是由软件完成,主要是为了________。
下面程序运行后,第3次单击窗体后,窗体中输出的是______。Dim a As IntegerPrivate Sub Form_Click()Static c As IntegerClsa = a + 1b = b + 1End Sub
在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click()Dim x As Integerx = Val(InputBox("请输入一个整数"))Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
在代码窗口中,有如下事件过程,以下叙述正确的是______。Private Sub Option1_Click(Index As Integer)……End Sub
在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click() Dim x As Integer x = Val(InputBox("请输入一个整数")) Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
有如下程序: Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2<>0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为______。
有如下程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。
阅读程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。
下面程序的输出结果为______
编写如下程序: Private Sub Form_Click() a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$,6-j,1)+Mid$(b$,j,1); Next j Print End Sub 程序运行后,单击窗体,其输出结果为 ______。
以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub
当输入X值为366时,输出结果为 ______。
当输入X值为0时,输出结果为 ______。
当输入X值为-1时,输出结果为 ______。
程序运行时,若依次输出5,20,则输出结果为 ______。
当运行程序时,系统会自动执行启动窗体的某个事件过程,该事件过程是 ______ 。
若将子过程SUB中的PRIVATE X改为PRIVATE Y,则Y的输出结果为 ______。
若将子过程SUB中的PRIVATE X改为PRIVATE Y,则X的输出结果为 ______。
若将PRIVATE Y改为PRIVATE X,则程序执行后的显示结果为 ______。
在事件过程中,Private表示______ 。
广告位招租WX:84302438

免费的网站请分享给朋友吧