举一反三
- 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是
- 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Move 500,500 End Sub 程序运行后,单击命令按钮,执行的操作为__
- 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=1:b=2:c=3 a=b:b=c:c=a Print a;b;c End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是().
- 在窗体上画一个名称为Command 1命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print ▁▁▁▁ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在横线处填入的内容为?
- 窗体上命令按钮的事件过程如下: Private Sub Command1_Click() A: A="34":B="26":C="98" B: Print B+C+A C: End Sub D: 运行程序后,单击命令按钮,输出结果是( E: )。A) "269834" F: B) 269834 G: C) 158 D) 程序运行出错
内容
- 0
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后,单击命令按钮,输出结果是 A: 0 B: 2 C: 3 D: 4
- 1
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 Fori=4 To 1 Step-1 s=s+a(i)*j j*10 Next i Print s End Sub 程序运行后,单击命令按钮,其输出结果是______。 A: A) 12 B: B) 34 C: C) 1234 D: D) 4321
- 2
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(A)funl(A)= 1 + a End Function 程序运行后,单击命令按钮,则窗体上显示的内容是 A.112 B.2 C.909090 D.1001
- 3
在窗体上画一个命令按钮,然后编写如下程序: Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_CliCk() inc2 inc3 inc4 Msgbox x; End Sub 程序执行后,单击Command1命令按钮,消息框显示结果是 【14】
- 4
窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() For i=1 to 4 For j=4 to 8 sum=sum+1 Next j Next i Print sum End Sub 运行时,单击按钮,输出结果是( )