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

搜题

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

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

[单选题]

在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click（) X = Val（Inputbox（"输入x的值")) Y = 1 If X＜＞0 Then Y = 2 Text1.Value = Y End Sub 打开窗体运行，在输入框中输入整数12，文本框Text1中的结果是（)。

A.1

B.2

C.3

D.4

参考答案

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

查看官方参考答案

网友提供的答案

共位网友提供了参考答案，

查看全部

· 有6位网友选择 C，占比60%
· 有2位网友选择 D，占比20%
· 有1位网友选择 A，占比10%
· 有1位网友选择 B，占比10%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。登录

更多“在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click（) X = Val（Inputbox（"输入x的值")) Y = 1 If X＜＞0 Then Y =…”相关的问题

第1题

在窗体中有一个文本框Testl，编写事件代码如下： Private Sub Form. Click（） X=val(Inputbox(”输入x的值”))Y=1 If X$amp;A.1

B.2

C.3

D.4

点击查看答案

第2题

P74. 在窗体中有一个文本框 Text1,编写事件代码如下 Private Sub Form_Click X= val()

A．1

B．2

C．3

D．4

点击查看答案

第3题

在表单FORM1中有一个文本框TEXT1，TEXT1的INIT事件代码如下：THIS.VALUE=0TEXT1的VALID事件代码如下：S=0FORi=1TOTHIS.VALUEIFi%5=0S=S+iENDIFENDFORTHIS.VALUE=S在TEXT1中输入22，然后按回车键，TEXT1中将显示（）。

A. 0

B. 22

C. 50

D. 100

点击查看答案

第4题

下面程序段运行，输入2,-1后，输出。 Dim x,y As Integer x =Val(InputBox("请输入数据")) y = Val(InputBox("请输入数据")) If x > 0 Then If y > 0 Then MsgBox("第一象限") Else MsgBox("第四象限") End If Else If y > 0 Then MsgBox("第二象限") Else MsgBox("第三象限") End If End If

A、第一象限

B、第二象限

C、第三象限

D、第四象限

点击查看答案

第5题

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。

编写如下程序：

Private Sub Form_Load（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

End Sub

Private Sub Command1_Click（）

x=Val（Text1.Text）

y=Val（Text2.Text）

Text3.Text=f（x，y）

End Sub

Function f（ByVal x As Integer,ByVal y As Integer）

Do While y$amp;tmp=x Mod y

x=y

y=tmp

Loop

f=x

End Function

运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（）。

A．4

B．6

C．8

D．12

点击查看答案

第6题

在窗体中有一个命令按钮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

点击查看答案

第7题

窗体中有命令按钮cmd1，对应的事件代码如下： Private Sub cmd1_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 + 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个数据分别统计整数和非整数的个数

点击查看答案

第8题

窗体中有命令按钮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

点击查看答案

第9题

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

A、4次

B、5次

C、6次

D、7次

点击查看答案

第10题

运行下列程序，输入数据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

点击查看答案

账号：尚未登录

登录没有账号？去注册

购买搜题卡

考试指南全部 >

吉林2024年4月自学考试成绩查询入口在哪里 2024年4月陕西自考成绩查询时间自考成绩查询方式会计学自考本科要考哪些科目一共考几门 2024年4月上海自学考试成绩查询系统入口 2024黑龙江自考成绩查询查分时间及入口湖北2024年4月自考成绩查询时间及入口护理成人自考本科考哪些科目具体考哪几门 2024年10月全国各地自考本科考试时间汇总 2024自考10月考试科目有哪些具体时间在几号小学教育自考本科考哪几门考试科目有什么

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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

备注：网站、APP、小程序均支持文字搜题、查看答案；语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP（或打开微信小程序）。

3. 搜题卡过期将作废，不支持退款，请在有效期内使用完毕。

找回账号密码

联系在线客服

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

- 微信扫码关注简答题 -

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

- 微信扫码关注简答题 -

下载APP

关注公众号

TOP