请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
A.0
B.5
C.6
D.7
答案
更多“在窗体中添加一个命令按钮，命名为Command1，然后编写如下程序：PrinvateSubCommand1_Click（)A=1234B=Str（A)C=Len（B)PrintCEndSub程序运行后…”相关的问题
第1题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
MsgBox f(24，18)End Sub
Public Function f(m As Integer，n As Integer)As"integerDo While m＜＞n
Do While m＞n m=m-n
Loop
Do While m＜n
n=n-m
Loop
Loop
f=m
End
Function
窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。
A.2
B.4
C.6
D.8
第2题
第4题
在窗体中添加一个命令按钮，(其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
第5题
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
For i＝1 To 4
x＝4
For j＝1 To 3
x＝3
Fork＝1 To 2
x＝x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是()。
A．7
B．15
C．157
D．528
第8题
在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
第9题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
第10题
在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1，初始内容为空的文本框，如图所示。程序功能：单击“计算”命令按钮，则计算“l!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
