更多“在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码: Private Sub Command1_Click() a=0:b=5:c=6 MsgBox? a=b+c End Sub 窗…”相关的问题
第1题
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() a = 75 If a>60 Then k = 1 ElseIf a>70 Then k = 2 ElseIf a>80 Then k = 3 ElseIf a>90 Then k = 4 End If MsgBox k End Sub 窗体打开运行后,单击命令按钮,则消息框的输出的结果是()。
点击查看答案
第2题
在窗体上添加一个命令按钮,名称为Command1,编写如下事件过程: Private Sub Command1_Click() Dim arr arr = Array("武汉", "温州", "吉林", "哈尔滨", "北京") Print arr(2) End Sub 运行时,单击命令按钮后输出的结果是()。
点击查看答案
第3题
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签,然后编写如下程序代码: Option Base 0 Private Sub Command1_Click() Dim a(5) As Integer, n As Integer For i = 0 To 5 a(i) = i n = n + a(i) Next i Label1 = n End Sub 运行程序,单击命令按钮,在标签中显示的内容是________。
点击查看答案
第4题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer Dim b As Variant For i = LBound(a) To UBound(a) a(i) = Chr(Asc("a") + (26 - i)) Next i For Each b In a Print b; Next End Sub 程序运行时,单击Command1,则输出结果是________。
A.abcde
B.12345
C.zyxwv
D.出错
点击查看答案
第5题
在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为()。
点击查看答案
第6题
在窗体上添加一个命令按钮Command1,编写如下事件过程,运行时单击按钮,显示结果为()。 Private Sub Command1_Click() For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print Sum End Sub
点击查看答案
第7题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写以下程序代码: Private Sub sub1(ByRef d(), ByRef m1 As Integer) Dim i As Integer m1 = d(LBound(d)) For i = LBound(d) + 1 To UBound(d) If m1 < d(i) Then m1 = d(i) Next i End Sub Private Sub Command1_Click() Dim n1 As Integer n1=-1 Dim data() data = Array(10, 20, -20, 50, 15, -5) Call sub1(data(), n1) Text1.Text = n1 End Sub 程序运行过程中,当单击命令按钮Command1时,则在文本框Text1中显示的结果为________。
点击查看答案
第8题
在窗体上添加一个命令按钮Command1,编写如下事件过程,运行时单击按钮,显示结果为()。 Private Sub Command1_Click() a = 0 For m = 1 To 3 a = a + 1 b = 0 For j = 1 To 3 a = a + 1 b = b + 2 Next j Next m Print a, b End Sub
点击查看答案
第9题
在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() x = 0 While x < 50 x = (x + 2) * (x + 4) n = n + 1 Wend Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub 运行时,单击命令按钮,Text1和Text2分别显示()。
A.0和0
B.1和8
C.2和120
D.3和15180
点击查看答案
第10题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() MsgBox Str(123 + 321) End Sub 程序运行后,单击命令按钮,则在信息框中显示的提示信息为_________。
A.字符串"123+321"
B.字符串"444"
C.数值"444"
D.空白
点击查看答案