在窗体中添加一个命令按钮,命名为Command1,然后编写如下程序:PrinvateSubCommand1_Click()A=1234B=Str(A)C=Len(B)PrintCEndSub程序运行后,单击命令按钮,则在窗体上显示的内容是()
A.0
B.5
C.6
D.7
A.0
B.5
C.6
D.7
编写一个程序,输入货物的数量及单价,求总价,并输出。程序界面如下图所示。
窗体标题设置为“售货机”,窗体上的两个标签(分别命名为Lab1和Lab2,标题为“货物的数据量(个):”和“贸物的单价(元):”)”两个文本框分别命名为Text1和Text2,命令按钮名称为Cmd1(标题为“总价=”,结果显示在名为Pic1的图片框中)。当用户输入货物的数量与单价后,单击“总价=”按钮,输出正确的结果。
注意:
在存盘时,工程文件名为execise60.vbp,窗体文件名为execise60.frm。
在窗体中添加一个名称为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
在窗体中添加一个命令按钮,(其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
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在【 】处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
在窗体上画一个命令按钮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,输出结果为【 】。
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个标题为“计算”的命令按钮,1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1,初始内容为空的文本框,如图所示。程序功能:单击“计算”命令按钮,则计算“l!+2!+…+10!”的值,并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。