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

搜题

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

提问人：网友qzz111 发布时间：2022-01-07

[主观题]

在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程： Private Sub cmd_click（)

在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程：

Private Sub cmd_click()

Dim x As Integer, y As Integer, z As Integer

x=5

y=7

z=0

Me! Txt=""

Call p(x,y,z)

Me! txt=z

End Sub

Sub p(a As Integer, b As Integer, e As Integer)

c=a+b

End Sub

单击按钮，文本框显示的内容是【】。

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

查看官方参考答案

更多“在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程： Private Sub cmd_click（)”相关的问题

第1题

在窗体上设置一个命令按钮cmd1和一个标签lab1，两个控件的Visible属性值均为False，按钮的标题是“显示”。运行程序后，单击窗体时显示出命令按钮，再单击按钮时则显示标签，并在标签上显示“您已下达显示命令”。保存工程和窗体，窗体名为：昵称-2-1.frm,工程名为：昵称-2-1.vbp。将工程文件和窗体文件压缩成：昵称-2-1.rar，以附件形式提交。

点击查看答案

第2题

封装制作过程中一般要设置一个参考点，选择【Edit】→【Set Reference】命令设置参考点，参考点选择包括（）。

A、Pin 1

B、Center

C、Location

D、left

点击查看答案

第3题

在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox(“请输入数据：”，“输入”，1) If Int(num/2)=num/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&Str(a)&：”，b=”&Str(b)) End Sub 运行以上事件所完成的功能是()。

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

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

C．对输入的10个数据分别统计有几个是整数，有几个是非整数

D．对输入的10个数据分别统计有几个是奇数，有几个是偶数

点击查看答案

第4题

在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter(． Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i= 1 To 10 num = InputBox("请输入数据:", "输入",1． If Int(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个数据分别统计有几个是奇数，有几个是偶数

点击查看答案

第5题

窗体中有命令按钮run34，对应的事件代码如下：

Private Sub run34_Enter()

Dim num As Integer,a As Integer,b As Integer,i As Integer

For i=1 To 10

num=InputBox(“请输入数据：”，“输入”)

If Int(num／2)=num／2 Then

a=a+l

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个数据分别统计整数和非整数的个数

点击查看答案

第6题

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

点击查看答案

第7题

窗体中有命令按钮Command1，事件过程如下： Public Function f(x As Integer) As Integer 　　Dim y As Integer 　　x = 20 　　y = 2 　　f = x * y End Function Private Sub Command1_Click() 　　Dim y As Integer 　　Static x As Integer 　　x = 10 　　y = 5 　　y = f(x) 　　Debug.Print x;y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是(　　)。

A、10 5

B、10 40

C、20 5

D、20 40

点击查看答案

第8题

由"For i = 1 To 16 Step 3"决定的循环结构被执行(　　)。

A、4次

B、5次

C、6次

D、7次

点击查看答案

第9题

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是(　　)。 Private Sub Form_Click() 　　Dim sum As Integer, m As Integer 　　sum = 0 　　Do 　　　　m = InputBox("输入m") 　　　　sum = sum + m 　　Loop Until m = 0 　　MsgBox sum End Sub

A、0

B、17

C、20

D、21

点击查看答案

第10题

在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() 　　Dim s As Integer 　　s = P(1)+ P(2)+ P(3)+ P(4) 　　debug.Print s End Sub Public Function P(N As Integer) 　　Dim Sum As Integer 　　Sum = 0 　　For i = 1 To N 　　　　Sum = Sum + i 　　Next i 　　P = Sum End Function 打开窗体运行后，单击命令按钮，输出结果是(　　)。

A、15

B、20

C、25

D、35

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

浙江成考优秀运动员免试进入成人高等学校学习推荐表（关于2024年成人高考的重要公成人高考报考条件有哪些？（高考零分作文是真的吗？） 2024江苏成考报名新变化还有哪些方面值得注意？山东2024年10月自学考试什么时候开始报名浙江省2024年普通高校专升本招生录取时间安排（浙江省教育考试院关于2024年下江苏成考专升本报名成功后的注意事项，你必须知道 2024年10报考山东自考大专多少费用一科多少钱 2024年丽水市现场确认各地区报名点地址及确认时间（浙江省教育考试院关于成人高考江苏成考报名需要准备的材料 2024年10月山东自考本科报名条件招生要求有哪些

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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