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

窗体中有命令按钮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个数据分别统计整数和非整数的个数

答案
查看答案
发布时间：2021-07-20
收藏
更多“窗体中有命令按钮run34，对应的事件代码如下： PrivateSub run34_Enter（） Dim humAs Integer，aAs”相关的问题

第1题

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

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

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

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

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

点击查看答案

第2题

窗体上有一个命令按钮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、 出错信息

点击查看答案

第3题

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

Private Sub Command1_Click（）

x=InputBox（"输入："，"输入整数"）

MsgBox"输入的数据是：”，，”输入数据："+x

End Sub

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

A．x的值是数值10

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

C．信息框的标题是“输入数据：10”

D．信息框中显示的是“输入的数据是：”

点击查看答案

第4题

窗体上有一个名称为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

点击查看答案

第5题

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

点击查看答案

第6题

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=0 Do Until x=-1
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(A)b=InputBox(“请输入B的值”) b=Val(B)x=InputBox(“请输入x的值”) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。

A．2

B．3

C．14

D．15

点击查看答案

第7题

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1 a
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A) b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End：Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______。

A．2

B．3

C．14

D．15

点击查看答案

第8题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click()Do Until b＜O a=In
在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1 Click()

Do Until b＜O

a=InputBox("输入a的值")

a=Val(A)

b=InputBox("输入b的值")

b=Val(B)

a=a+b

Loop

Print a

End Sub

程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【 】

点击查看答案

第9题

假定有以下函数过程： Function Fun（S As String) As String Dim s1 As String For i=1 To Len（S)
假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String，Str2 As String Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A．abederg

B．ABCDEFG

C．gfedcba

D．GFEDCBA

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

    订单号：

    遇到问题请联系在线客服

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