网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

提问人：网友zytkhr1 发布时间：2022-01-06

[主观题]

在窗体上添加一个命令按钮，编写事件过程：Private Sub Command1_Click（)Dim a As Integer,b As

在窗体上添加一个命令按钮，编写事件过程：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=InputBox("Enter the First integer")

b=InputBox("Enter the Second integer")

Print b+a

End Sub

程序运行后，单击命令按钮，先后在两个输入对话框中分别345和678，则输出结果是()。

A.1023

B.678345

C.678

D.345

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“在窗体上添加一个命令按钮，编写事件过程：Private Sub Command1_Click（)Dim a As Integer,b As”相关的问题

第1题

在窗体上添加一个命令按钮Command1，并编写下列事件过程： Private Sub Command1_Click() x = 0 n = 0 Do Until x > 10 x = (x + 1) ^ 2 n = n + 1 Loop End Sub 程序运行时，单击Command1按钮，则n和x的值分别是（）。

A、3和25

B、2和16

C、3和36

D、4和49

点击查看答案

第2题

窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1Click（） Dim m As Integer，n As Integer m=InputBox("输入第一个数") nzInputBox("输入第二个数") Do While m$amp;A.求数值m和n的最大公约数

B.求数值m和n的最小公倍数

C.求数值m和n中的较大数

D.求数值m和n中的较小数

点击查看答案

第3题

在窗体上添加一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = Val(InputBox("请输入分数：", "计算的等级", 60)) If a < 0 Or a > 100 Then Print "输入错误" ElseIf a < 60 Then Print "不合格" ElseIf a < 80 Then Print "合格" Else Print "优秀" End If End Sub 运行时，单击按钮，在输入对话框中直接按Enter键，显示的结果为（）。

A、输入错误

B、不合格

C、合格

D、优秀

点击查看答案

第4题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

Dim aS，b$，c$，k％

a=”ABCD”

b=”123456”

c=””

k=1

Do While k<=Len(a) Or k<=Len(b)

If k<=Len(a)Then

c=c&Mid(a，k，1)

End If

If k<=Len(b)Then

c=c&Mid(a，k，1)

End If

k=k+1

Loop

Print c

End Sub

运行程序，单击命令按钮，输出结果是()。

A．123456ABCD

B．ABCDl23456

C．D6C584A321

D．A182C3D456

点击查看答案

第5题

下列程序段的运行结果为（）。 Dim m(10) For i = 0 To 9 m(i) = 2 * i Next i Print m(m(3))

A、12

B、6

C、0

D、4

点击查看答案

第6题

下列程序的运行结果为（）。 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n = 1 To 2 For m = 1 To 3 Print a(m, n); " "; Next m Next n End Sub

A、2 4 6 1 2 3

B、1 2 3 2 4 6

C、1 2 3 4 5 6

D、6 5 4 3 2 1

点击查看答案

第7题

能使数组元素个数加1，但保留数组中原有元素的语句是（）。

A、ReDim arr(7)

B、ReDim Preserve arr(7)

C、Public arr(1 To 7)

D、Static arr(7)

点击查看答案

第8题

执行了下面的程序后，列表框中的数据项有（）。 Private Sub Form_Click() For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next i End Sub

A、1，5，6

B、2，4，6

C、4，5，6

D、1，3，5

点击查看答案

第9题

列表框的MultiSelect属性设置为（）后，可用Shift键或Ctrl键配合鼠标在列表框中进行多项选择。

A、无

B、0

C、1

D、2

点击查看答案

第10题

使用（）方法可以删除指定的项目。

A、Cls

B、Clear

C、Remove

D、RemoveItem

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

9月22日提醒！2024年10月安徽省成人高考缴费时间即将截止 24年下半年江苏自学考试准考证打印时间已公布！考前一周 2024年下半年内蒙古大学自考本科报名时间是什么？9月23日—27日湖南函授本科可以考研吗？辽宁24年度成人高考考试考哪些科目 2024自考10月成绩什么时候出几月份公布云南24年度成人高考考试科目安排 2024年贵州成人高考报名时间及相关信息 2024年下半年四川自考本科考试报名时间 2024年湖南函授专升本加分政策吗？考试难度怎么样？

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次