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

当Form1_Click事件发生时,程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer,k As Integer,t As Integer M=5:k=7 Select Case M Case Is<0 M=M+5 Case 1 To 10 t=M:M=k:k=t Case Else M=k Mod 3 End Select Print M,k,t End Sub

单选题
2022-01-05 11:56
A、5 5 7
B、5 7 5
C、7 5 5
D、7 5 7
查看答案

正确答案
C

试题解析
解析:SelectCase语句用来实现多分支,但每次最多只执行一个分支。在本题的多分支语句中,首先判断M的值,为5,条件Case1to10成立,执行该分支,该分支的三条语句执行后,t的值为5,M的值为7,k的值为5。

标签:
感兴趣题目
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时( )。 Private Sub Click MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print”Visual Basic Program” End Sub
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时Private Sub Click_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Print”VB Program”End Sub
当Form1_Click事件发生时,程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer,k As Integer,t As Integer M=5:k=7 Select Case M Case Is<0 M=M+5 Case 1 To 10 t=M:M=k:k=t Case Else M=k Mod 3 End Select Print M,k,t End Sub
有如下程序: Private Sub Form_Click() E=1:F=1 For i=1 To 3 E=E+F:F=F+E Next Print E;F End Sub 该程序的输出结果是
有如下程序: Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是
条件或门表示B1或B2任何一个事件发生时,(),才有输出事件A发生。
只有当输入事件之一发生时才能导致输出事件发生,而当有两个或两个以上输入事件发生时,输出事件则不发生,表示这种逻辑关系的是()。  
当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 Command1_Click( ) Line(500,500)-(1000,500) Line(750,300)-(750,700) End Sub
运行以下程序后,输出的图形是 Private Sub Command1_Click() Line(500,500)-(1000,500) Line(750,300)-(750,700) End Sub
下列程序段运行后输出的结果是()。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub
相关题目
人寿保险是以()为保险标的,当事件发生时,保险人履行给付保险金责任的一种保险。
在操作系统中,当一个中断(或事件)发生时,CPU的反应是( )。
能够在不利事件发生时及时发现的控制手段是( )。
下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3<>0 Then a=a+j3 Next Print a End Sub
以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub
若将子过程SUB中的PRIVATE X改为PRIVATE Y,则Y的输出结果为 ______。
若将子过程SUB中的PRIVATE X改为PRIVATE Y,则X的输出结果为 ______。
在以下事件中,Private表示 Private Sub sub1(x As Integer,y As Integer) ...End Sub
下面程序的输出是______。Private Sub Command1_Click() Print 73End Sub
在DblClick事件发生时,不会同时发生的事件是( )。
当事件发生时()
当事件A与B同时发生时,事件C必发生,则下列结论正确的是( )。
当事件A与B同时发生时,事件C必发生,则下列结论正确的是( )。
当延期事件发生时应按要求提交()
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S>=30 Print Number,S End Sub 程序运行后,输出的结果是
在窗体上画一个命令按钮,然后写出如下事件过程: Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S>=6 Print Number,S End 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() 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 Click—MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"VB Program" End Sub
若看到程序中确以下事件过程,则可以肯定的是,当程序运行时( )。Private Sub Click—MouseDown(Button As Integer,Shift As Integer,X As Single,YAs Single)Print"VB Program"End Sub
广告位招租WX:84302438

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