更多"在窗体上有一个命令按钮,然后编写如下事件过程
Private S"的相关试题:
[单项选择]在窗体上有一个命令按钮,然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox("enter the first integer") b=InputBox("enter the second integer") Print b + a End Sub 程序运行后,单击命令按钮,先后在两个输入框中分别输入“2”和“6”,则输出结果为
A. 2
B. 62
C. 8
D. 26
[单项选择]在窗体上有一个命令按钮,然后编写如下事件过程
Private Sub Command1 _ cickc ( )
a=InputBox("enter the first integer")
b=InputBox("enter the second integer")
Print b + a
End Sub
程序运行后,单击命令按钮,先后在两个输入框中分别输入“2”和“6”,则输出结果为( )。
A. ifstream fin;fin.open("C:////test.txt");
B. ifstream fin("C:////test.txt");
C. A)和B)
D. ifstream fin;fin("C:////test.txt");
[单项选择]在窗体上有一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
[单项选择]在窗体上有一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim a(5) As String
FOR i=1 To 5
a(i) =Chr(Asc("A") +(i-1))
Next
For Each b In a
Print b;
Next
End Sub
程序运行后,单击命令按钮,输出结果是
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
[单项选择]在窗体上画一个命令按钮,名称为Command1。 Private Sub Command1 Click( ) Dim x As Integer,y As Integer x=10:y:0 Do x=x+2:y=y+x Print "x=", x; "y=",y If y>20 Then Exit Do Loop Until x=18 End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12 x = 14 y = 16 x=16 y=18
B. x=12 y=12 x= 16 y =28 x= 18 y=24
C. x=12 y=12 x= 14 y=44
D. x= 12 y=12 x= 14 y=26
[单项选择]在窗体上画一个命令按钮Command1,然后编写如下代码: Private Sub Command1_Click( ) Dim Arr1(10) As Integer, Arr2(10)As Integer n=3 For i = 1 To 5 Arr1 (i)=i Arr2(n)=2 * n+i Next i Print Arr2(n); Art1 (n)End Sub运行程序后,单击命令按钮,输出结果是( )。
A. 11 3
B. 3 11
C. 13 3
D. 3 13
[单项选择]在窗体上画一个命令按钮,然后编写下列程序:
Private Sub Command1 click( )
Dim a As Single,b As Single
a=6:b=2
RC a,b
Print a,b
End Sub
Sub RC(x As Single,y As Single)
i=x
x=i/y
y=i Mod y
End Sub
程序运行后,输出的结果为( )。
A. 4 3
B. 1 1
C. 3 0
D. 2 6