首页 > 干部教育培训
题目内容 (请给出正确答案)
[主观题]

在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程: Private Sub Command1_Click()

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

答案
收藏

B
解析:本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕,认真地分析清楚每一次循环问题就会迎刃而解。本题中,在每一次外循环开始的时候都把x的值置为4,所以我们只分析最后一次循环就可以了;同理中层循环每一次开始前都把x的值置为3,所以这个问题最后实际上就是x的初值为3,执行最内层循环直到结束就可以了。根据程序内循环执行两次,所以最后x=3+6+6=15。

如果结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能还需要:
您的账号:
发送账号密码至手机
发送
安装优题宝APP,拍照搜题省时又省心!
更多“在窗体上添加一个命令按钮(名为Command1),然后编写如…”相关的问题
第1题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Comma

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是()。

A.4

B.5

C.6

D.7

点击查看答案
第2题
在窗体上添加一个名称为Command1的命令按钮,然后编写如下事件过程:OptionBase1PrivateSubComma

A.空白

B.错误提示

C.绿色

D.白色

点击查看答案
第3题
在窗体中添加一个命令按钮,命名为Command1,然后编写如下程序:PrinvateSubCommand1_Click()A=1234B=Str(A)C=Len(B)PrintCEndSub程序运行后,单击命令按钮,则在窗体上显示的内容是()

A.0

B.5

C.6

D.7

点击查看答案
第4题
在VB窗体上添加一个名称为 Command1的命令按钮,再添加两个名称分别为Label1、Label2的标签,然后

A.13和40

B.13和8

C.5和40

D.5和8

点击查看答案
第5题
在窗体上添加一个文本框控件Info,画一个命令按钮,当单击命令按钮显示“保存文件”对话框,设置该对
话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1.Filter=【 】 CommonDialog1.FilterIndex=【 】 CommonDialog1.ShowSave Info.Text=【 】 End Sub

点击查看答案
第6题
将宏对象拖到窗体的设计视图中,会添加一个()

A.命令按钮

B.文本框

C.列表框

D.标签

点击查看答案
第7题
设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个
名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit CommonDialogl.Color=Text1.ForeColor 【 】 Text1.ForeColor=CommonDialog1.Color End Sub

点击查看答案
第8题
在窗体中添加一个命令按钮,(其Name属性为Command1),然后编写代码。程序的功能是产生100个小于1000

在窗体中添加一个命令按钮,(其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

点击查看答案
第9题
以下是宏对象m1的条件及操作序列设计:条件操作序列操作对象名称①OpenForm "fTest2" ②Beep [tNum]>123 ③OpenTable "tStud" … ④Msgbox ⑤OpenReport "rStud" … ⑥Close (无) 假定宏m1操作中涉及的对象均已存在。将m1宏设置为窗体“fTest1”上某个命令按钮的单击事件属性。当打开窗体“frest1”后,在窗体上名为“tNum”的文本框中输入数字150,然后单击命令按钮,会启动宏m1的运行。宏m1运行后,执行的操作序列是( )

A.①②③④⑤⑥

B.①②⑤

C.①②③④⑥

D.①②⑤⑥

点击查看答案
第10题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubcommand1clickIfx>0Theny=x^2ElseEndIfPrintyEndsub程序运行后,单击命令按钮,窗体上显示的是()。

A.-5

B.25

C.-1

D.1

点击查看答案
第11题
在考生文件夹中完成如下综合应用: 学籍数据库里有“学生”、“课程”和“选课”三个表,建立一个名为
myview的视图,该视图包含“学号”、“姓名”、“课程名”和“成绩”四个字段。要求先按“学号”升序排序,再按“课程名”升序排序。 建立一个名为myform的表单,表单标题为“学籍查看”,表单中含有一个表格控件,该控件的数据源是前面建立的视图myview。在表格控件下面添加一个命令按钮,该命令按钮的标题为“退出”,要求单击按钮时弹出一个对话框提问“是否退出?”运行时如果选择“是”则关闭表单,否则不关闭。

点击查看答案
退出 登录/注册
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改