题目内容（请给出正确答案）

[单选题]

在窗体中添加一个名称为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 窗体打开运行后，单击命令按钮，则消息框的输出的结果是（）。

A.1

B.2

C.3

D.4

答案

A、1

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“在窗体中添加一个名称为Command1的命令按钮，然后编写如…”相关的问题

第1题

在窗体上添加一个命令按钮，名称为Command1，编写如下事件过程： Private Sub Command1_Click（) Dim arr arr = Array（"武汉", "温州", "吉林", "哈尔滨", "北京") Print arr（2) End Sub 运行时，单击命令按钮后输出的结果是（）。

A.温州

B.吉林

C.哈尔滨

D.北京

点击查看答案

第2题

在窗体上添加一个命令按钮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

A.4

B.8

C.20

D.32

点击查看答案

第3题

在窗体上画一个名称为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.出错

点击查看答案

第4题

在窗体上添加一个命令按钮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

A.6 6

B.6 18

C.12 6

D.12 18

点击查看答案

第5题

在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click（) Text1.Text=Ucase（SaveAll) End Sub Private Sub Form_KeyPress（KeyAscii As Integer) SaveAll= SaveAll+Chr（KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为（)。

A.abcdefg

B.不显示任何信息

C.ABCDEFG

D.出错

点击查看答案

第6题

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下： Private Sub Command1_Click（) Open "c:f1.txt" For Input As #1 Do While Not EOF（1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序，以下叙述中错误的是________。

A.Close的作用是关闭已经打开的数据文件

B.单击命令按钮后，把f1.txt中的所有内容添加到列表框中

C.以输入方式打开随机文件f1.txt

D.运行程序后，列表框中的列表项都是f1.txt中的记录

点击查看答案

第7题

在窗体上画一个名为Command1的命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是。

A.18

B.12

C.8

D.6

点击查看答案

第8题

打开教学管理（拓展）数据库文件，对窗体对象fTest完成以下操作： 1.将窗体"标题"属性设为"测试窗体"；在窗体的主体节区添加一个命令按钮，命名为"bt"，标题为"测试"；设置该命令按钮的单击事件属性为给定的宏对象"mTest"。 2.以"bt1"命令按钮为大小及左边距为基准，将"bt2"和"bt3"命令按钮放置到相应位置，使得"bt2"命令按钮在垂直方向上与"bt1"和"bt3"间距相等。

点击查看答案

第9题

在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。在改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案