重要提示:请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
首页 > 计算机类考试> 计算机二级> VB
网友您好,请在下方输入框内输入要搜索的题目:
搜题
拍照、语音搜题,请扫码下载APP
扫一扫 下载APP
题目内容 (请给出正确答案)
[主观题]

假定有如下的命令按钮(名称为Command1)事件过程: PrivateSubCommand1_Click() x=InputB

假定有如下的命令按钮(名称为Command1)事件过程:

Private Sub Command1_Click()

x=InputBox("输入:","输入整数")

MsgBox"输入的数据是:”,,”输入数据:"+x

End Sub

程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是()。

A.x的值是数值10

B.输入对话框的标题是“输入整数”

C.信息框的标题是“输入数据:10”

D.信息框中显示的是“输入的数据是:”

答案
查看答案
更多“假定有如下的命令按钮(名称为Command1)事件过程: PrivateSubCommand1_Click() x=InputB”相关的问题

第1题

P46.窗体中有命令按钮run34,对应的事件代码如下:运行以上事件过程,所完成的功能是()

A.对输入的10个数据求累加和

B.对输入的10个数据求各自的余数,然后再进行累加

C.对输入的10个数据分别统计奇数和偶数的个数

D.对输入的10个数据分别统计整数和非整数的个数

点击查看答案

第2题

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: P
rivate Sub Command1 Click() XzInputBox("输入X:",,0) y=InputBox("输入y:",,0) Label1.Caption=x+y End Sub 运行程序,单击命令按钮,在输入对话框中分别输入2、3,运行的结果是()。

A.程序运行有错误,数据类型不匹配

B.程序运行有错误,InputBox函数的格式不对

C.在Label1中显示5

D.在Label1中显示23

点击查看答案

第3题

窗体中有命令按钮run34,对应的事件代码如下: PrivateSub run34_Enter() Dim humAs Integer,aAs
窗体中有命令按钮run34,对应的事件代码如下: PrivateSub run34_Enter() Dim humAs Integer,aAs Integer,b As Integer,i AsInteger For i=1To 10 num=InputBox(”请输入数据:”,”输入”) IfInt(num/2)==num/2 Then a=a+1 Else b=b+1 End if Next i MsgBox(”运行结果:a=”&Str(a)&”,b=”&Str(b)) End Sub 运行以上事件过程,所完成的功能是()。

A.对输入的10个数据求累加和

B.对输入的10个数据求各自的余数,然后再进行累加

C.对输入的10个数据分别统计奇数和偶数的个数

D.对输入的10个数据分别统计整数和非整数的个数

点击查看答案

第4题

窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()x = InputBox(
窗体上有一个命令按钮Command1,编写如下事件过程:

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

End Sub

运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是()。

A、 444

B、 123321

C、 123+321

D、 出错信息

点击查看答案

第5题

在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后
编写如下两个事件过程: 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入一个具有大小写的字符串,则在标签中显示的内容全部为大写。请填空。

点击查看答案

第6题

在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在
该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是

A.Private Sub Command1_Click() x=Input Box("请输入整数") a=F1(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) If b Mod2=0 Then Return0 Else Return 1 End lf

B.Private Sub Command1_Click() x=Input Box(“请输入整数”) a=Fl(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) lf b Mod 2=0 Then Fl=0 Else Fl=1 End lf End Function

C.Private Sub Command1 Click() x= Input Box(“请输入整数”) F1(Val(x)) Print a Enb Sub Function Fl(ByRef b As Integer) If b Mod2=0 Then Fl=1 Else Fl=0 End lf End Function

D.Private Sub Command1_Click() x=Input Box(“请输入整数”) F1(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) lf b Mod2=0 Then Return 0 E

点击查看答案

第7题

在窗体上绘制一个文本框,然后编写如下事件过程:Private Sub Form_Click()x=InputBox("请输入一个
在窗体上绘制一个文本框,然后编写如下事件过程: Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为()。

A.123

B.456

C.579

D.123456

点击查看答案

第8题

下面关于组合框与列表框的叙述,()是正确的

A.可以在组合框中输入数据,而列表框不能

B.可以在列表中输入数据,而组合框不能

C.列表框和组合框都不可以输入数据

D.在列表框和组合框中都可以输入数据

点击查看答案

第9题

设有如下程序:Private Sub Command1_Click()Dim c As Integer,d As Integerc=4d=InputBox(“请输
设有如下程序: Private Sub Command1_Click() Dim c As Integer,d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d>0 If d>c Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是

A.12

B.11

C.10

D.9

点击查看答案
下载APP
关注公众号
TOP
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案 购买前请仔细阅读《购买须知》
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《服务协议》《购买须知》
立即支付 系统将自动为您注册账号
已付款,但不能查看答案,请点这里登录即可>>>
请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
请用微信扫码测试
优题宝