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

搜题

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

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

[主观题]

（32 ）设有以下程序：Private Sub Form_Click（)X=50For i=1 To 4Y=InputBox（“ 请输入一个整数 ”

（32 ）设有以下程序：

Private Sub Form_Click()

X=50

For i=1 To 4

Y=InputBox(“ 请输入一个整数 ” )

Y=Val(y)

If y Mod 5=0 Then

a=a+y

x=y

Else

a=a+x

End If

Next i

Print a

End Sub

程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为

A ） 100

B ） 50

C ） 120

D ） 70

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

查看官方参考答案

更多“（32 ）设有以下程序：Private Sub Form_Click（)X=50For i=1 To 4Y=InputBox（“ 请输入一个整数 ””相关的问题

第1题

下列函数实现请用户输入若干个整数写入指定的文件中，直到用户输入-1为止，请填空。 void f(char *fname) { (1) file(fname); int x; cout<<"input while(1) { cin>>x; if(x!=-1) file<<x<<' '; else break; } file.close();>

点击查看答案

第2题

设有如下窗体单击事件过程：

Private Sub Form Click()

x=1

For i=1 To 3

Select Case I

Case 1,3

x=x+3

Case 2,4

x=x-2

End Select

Next I

MsgBox x

End Sub

打开窗体运行后，单击窗体，则消息框的输出结果是______。

点击查看答案

第3题

设有以下窗体单击事件过程：

Private Sub Form_Click()

a=1

For i=1 To 3

End Select

Next i

End Sub

打开窗体运行后，单击窗体，则消息框的输出内容是()。

点击查看答案

第4题

运行下列程序：

Private Sub Form_Click()

For i = 1 To 20

If fun1(i) Then

s = s + 1

End If

Next i

Print s

End Sub

Private Function fun1(y) As Boolean

If y Mod 2 $amp;fun1 = False

Else

fun1 = True

End If

End Function

单击窗体后，则在窗体上显示的结果是()。

A.110

B.10

C.0

D.20

点击查看答案

第5题

运行下列程序：

Private Sub form_Click()

For i = 1 To 4

t = t * 10 + i

s = s + t

Next i

Print s

End Sub

单击窗体后，则输出结果是()。

A.1234

B.4321

C.1370

D.4444

点击查看答案

第6题

1. 执行下面的程序段后，变量c的值为(　　)。 a = 29 b = 33 Select Case b\10 Case 0 c = a * 10 + b Case 1 To 9 c = a * 100 + b Case 10 To 99 c = a * 1000 + b End Select Print c A. 29 B. 2933 C. 33 D. 3329

A、A

B、B

C、C

D、D

点击查看答案

第7题

1. 有一程序段，其功能是：当x>0时，y=x；当-2= <x> <=0时，y=-x,当x<-2时，产生一个"输入错误"信息框。则下列程序空白处应为(　　)。 private sub form_click() x %="InputBox(″请输入x的值：″)" if> 0 Then y = x _______ y = -x Else MsgBox ″输入错误″ End If Print y End Sub A. Else x >= -2 And x <= 0 then b. elseif x>= -2 And x <= 0 then c. elseif x>= -2 And x <= 0 d. else if x>= -2 And x <= 0 then> A、A

B、B

C、C

D、D

点击查看答案

第8题

1. 编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后，单击命令按钮Command1，输出结果为(　　)。 A. AAA B. BBB C. CCC D. 1

A、A

B、B

C、C

D、D

点击查看答案

第9题

1. 阅读程序。 Private Sub Command1_ Click A = 75 IF A>60 THEN I = 1 IF A>70 THEN I = 2 IF A>80 THEN I = 3 IF A>90 THEN I = 4 MsgBox I End Sub 程序运行后，窗体上显示的是( )。 A．1 B．2 C．3 D．4

A、A

B、B

C、C

D、D

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

小自考报名入口官网 2024年考哪几门科目 2024年自考成人本科需要什么条件考哪几门 2024年初中文凭如何提高学历有哪些方法途径报考成人大专需要中专毕业证吗报名条件有哪些 2024自考专升本报考详细流程图如何报名参加自学考试和成人高考哪个好有哪些不一样 2024年成人自考本科考哪些科目多少分合格 2024年自考本科费用一览表要考多久自考大专毕业可以考教师资格证吗有什么用处 2024年自考专科专业科目一览表广西如何选择

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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