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

搜题

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

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

[主观题]

（33）有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click（)Dim x As Integer,y A

（33）有如下事件程序，运行该程序后输出结果是

Private Sub Command33_Click()

Dim x As Integer,y As Integer

x=1:y=0

Do Until y＜=25

y=y+x*x

x=x+1

Loop

MsgBox "x="&x&",y="&y

End Sub

A）x=1,y=0

B） x=4,y=25

C）x=5,y=30

D）输出其他结果

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

查看官方参考答案

更多“（33）有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click（)Dim x As Integer,y A”相关的问题

第1题

有如下事件程序，运行该程序后输出结果是（）。

PrivateSub Command33_click

Dim x AsInteger，Y AsInteger

x=1：y=0

Do Untily<=25y=y+x*xx=x+1

Loop

MsgBox”x=＆x＆”，y="&Y

End Sub

A.x=1，y=0

B.x=4，y=25

C.x=5，y=30

D.输出其他结果

点击查看答案

第2题

下面程序段运行后，显示的结果是。 Dim x% If x Then MsgBox(x) Else MsgBox( x + 1)

A、1

B、0

C、2

D、-1

E、显示出错信息

点击查看答案

第3题

已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（）。

PrivateSubCommand1_Click（）

StaticStu（3）AsInteger

ForI=2To3

Stu（I）=Stu（I）+I

NextI

PrintStu（2）；

EndSub

A. 2

B. 4

C. 6

D. 8

点击查看答案

第4题

若变量i的初值为8，则下列循环语句中循环体的执行次数为(　　)。 Do While i <= 2 17 　　 i="i" +> A、3次

B、4次

C、5次

D、6次

点击查看答案

第5题

在窗体中有一个文本框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题

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

点击查看答案

第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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

福建2024年10月自考考试时间安排表具体几号开考 2024年10月河北自考成绩查询时间什么时候出分河北2024年10月自考成绩查询系统入口在哪里 2024年10月海南自考考试时间是多少具体几号开考杭州2024年自考本科考试时间表具体是几号自考本科每年的考试时间是几月份什么时候报考自考本科每年的考试时间是什么时候一年几次陕西成人自考报名时间2024 几月开始报考 2024下半年参加河北自考的条件有什么限制 2024年成人自考条件及标准要求是什么

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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