请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
窗体中有一个命令按钮Command1，其Click事件过程如下。
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
答案
更多“窗体中有一个命令按钮Command1，其Click事件过程如下。 PriVate Sub Coranland1_Click（) For i=1 To 4 x=”相关的问题
第1题
窗体中有一个命令按钮(Command1。其Click事件过程如下。
Private Sub Command1_Click()
Dim a(10,10)
For m=1 To 4
For n=3 To 5
a(m,n)=m*n
Next n
Next m
MsgB0x a(1, 3)+a(2, 4) +a(3, 5)
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
第2题
窗体中有一个命令按钮Command1。其Click事件过程如下。
Sub P(b()As Integer)
For i=1 to 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer
For i=1 to 4
a(i)=i+4
Nexti
P a()
For i=1 to 4
MsgB0x a(i)
Next i
End Suk)
窗体运行后，单击命令按钮，消息框4次输出的结果分别是( )。
A．2 4 6 8 B．5 6 7 8 C．10 12 14 16 D．出错
第3题
第4题
假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() 【 】Form1 Form2.【 】 End Sub
第5题
在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【 】和【 】、【 】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【 】) If a(j)【 】5=0 Then【 】 Print a(j) Next j Print print k/100 End Sub
第7题
在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。 编写程序要求实现的功能为：窗体form. 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。 Private Sub Command1_Click() Dialog. Text1. Text = "" Dialog. Show End Sub Private Sub Command2_Click() Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname End Sub Private Sub Form_ Load() Command1. Caption = "name" 【 】. Caption = "please input your name: Dialog. i = 0 End Sub Option Explicit Public i As Integer Public email As String Public fname As String Private Sub CancelButton_Click() i=0 email = "" fname = "" Forml. Command1. Capt ion = "name" Dialog. Hide Form1. Show End Sub Private Sub OKButton_ Click() 【 】 Select Case i Case 1: email = Text1. Text Labe11. Caption = "please input your email:" 【 】. Caption = "email" Case 2: fname = Text1. Text 【 】. Caption = "name" i=0 End Select Dialog. Hide Form1. Show End Sub
第8题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
第9题
A.0
B.5
C.6
D.7
第10题
A.-5
B.25
C.-1
D.1
