更多"在窗体上添加一个命令按钮,名称为Command1,然后编写如下程序:
"的相关试题:
[填空题]在窗体上添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click( )
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后,单击命令按钮,则消息框的输出结果为_______。
[填空题]在窗体上添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click( )
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后,单击命令按钮,则消息框的输出结果为_______。
[单项选择]在窗体上添加一个名称为Command1的命令按钮,然后编写如下事件代码:
Private Sub Command1_Click( )
A. )。1
B. 2
C. 3 D.4
[填空题]在窗体上添加一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub f(By Val x As Integer)
x=x+4
End Sub
PrivateSubCommand1_Click( )
i=3
Call f(i)
If i>4 Then i=i*2
MsgBox i
End Sub
打开窗体运行后,单击命令按钮,则消息框的输出结果为______。
[单项选择]窗体上有名称为Command1的命令按钮和名称为Texl1的文本框
Private Sub Command1_Click( )
Text1.Text="程序设计"
Text.1.SeFocus
End Sub
Private Sub Text1_GotFocus( )
Text1.Text="等级考试"
End Sub
运行以下程序,单击命令按钮后( )
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[单项选择]窗体上有名称为Command1的命令按钮和名称为Text1的文本框()。Private Sub Command1_Click( )Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus( )Text1.Text="等级考试"End Sub 运行以上程序,单击命令按钮后()。
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[填空题]在窗体上画一个名称为Command1的命令按钮,编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a= 【11】
For i=1 To 5
Print Space(6-i);Mid $(a,6-i,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
[填空题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为 【15】 。
[单项选择]
窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
Dim s As String
Open “c:/File1.txt” For Input As #1
Open “c:/File2.txt” For Output As #2
Do While Not EOF(1)
Input #1,s
Print #2,s
Loop
Close #1,#2
End Sub
关于上述程序,以下叙述错误的是()。
A. 程序把File1.txt文件的内容存放到File2.txt文件中
B. 程序中打开了两个随机文件
C. 程序中打开了两个顺序文件
D. “EOF(1)”中的“1”对应于File1.txt文件
[单项选择]窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
x="VisualBasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
C=Msgbox(a,b)
End Sub
运行程序后单击命令按钮,以下叙述中错误的是( )
A. 信息框的标题是Basic
B. 信息框中的提示信息是Programming
C. C的值是函数的返回值
D. MsgBox的使用格式有错
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click( )
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[填空题]在窗体上添加一个命令按钮,编写如下事件过程:
Private Sub Command1_Click( )
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
运行窗体后,单击命令按钮,消息框的输出结果是______。
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_ Click( )
Static x As Integer
Static y As Integer
Cls
y=1
y=y+5
x=y +x
Print x, y
End Sub
程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为______。
A. 15 16
B. 15 6
C. 15 15
D. 5 6
[填空题]在窗体上画一个名称为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
MsgBox a
End Sub
程序运行后,单击命令按钮,消息框中的输出结果是______。