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

搜题

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

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

[主观题]

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）。PrivateSub Form. click（）Dim sumAs In

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）。

PrivateSub Form. click（）

Dim sumAs Integer，mAs Integersum=0

m=InputBox(”输入m”)

sum= sum+m

LoopUntil m=0

MsgBoxsum

End Sub

A.0

B.17

C.20

D.21

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

查看官方参考答案

更多“运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）。PrivateSub Form. click（）Dim sumAs In”相关的问题

第1题

运行下列程序，输入数据8、9、3、0后， Dim sum As Integer，m As Integer 　　sum＝0 　　Do 　　　　m＝InputBox("输入m") 　　　　sum＝sum＋m 　　Loop Until m＝0 　　MsgBox sum Sum结果？

A、20

B、22

C、21

D、24

点击查看答案

第2题

程序段如下，程序运行后消息框显示的结果是______。 Dim x%, y%, z%, t% x = 38 : y = 50 : z = 46 If x > y Then t = x : x = y : y = t If x > z Then t = x : x = z : z = t If y > z Then t = y : y = z : z = t MsgBox(y)

A、38

B、50

C、46

D、不确定

点击查看答案

第3题

运行下列程序，单击窗体，从键盘输入50，则输出结果是。 Private Sub Form_Click() a = Val(InputBox("A=")) Select Case a Case Is < 100: Print a + 1; Case Is < 80: Print a + 2; Case Is < 60: Print a + 3; Case Else: Print a + 4; End Select End Sub

点击查看答案

第4题

给出窗体单击事件过程：

PRIVATE SUB FORM_CLICK()

DIM A AS INTEGER

A =VAL(INPUTBOX("PLEASE INPUT A NUMBER" ))

SELECT CASE A MOD 5

CASE IS＜4

W=A+10

CASE IS＜2

W=A.2

CASE ELSE

W=A-10

END SELECT

MSGBOX W

END SUB

当运行程序后，设输入的数据分别为14、3、125、21时，消息框显示的内容分别是【】。

点击查看答案

第5题

语句 Private const PI as Single=3.14 定义了一个标识符PI，以下关于PI的描述中，正确的是（）。

A、PI是一个变量

B、可以使用赋值语句 PI=3.1415926 来修改PI的值

C、VB编译器会在编译时将模块内所有的PI都替换成3.14

D、如需使PI保留10位有效数字，则仅需用 3.141592654替换上述语句中的3.14即可

点击查看答案

第6题

下列函数实现请用户输入若干个整数写入指定的文件中，直到用户输入-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();>

点击查看答案

第7题

在窗体中添加一文本框TextBox1，然后编写以下程序代码： Private Sub Form1_Click(…) Handles Me.Click Dim a = Split(TextBox1.Text, ",") Dim strTemp As String For i = a.GetLowerBound(0) To a.GetUpperBound(0) strTemp &= a(i) + trim(str(i)) Next MsgBox(strTemp) End Sub 在程序运行时，先在文本框中键入数据“0,1,2,3,4”，然后单击窗体，程序的输出结果是______。

A、02468

B、0011223344

C、01234

D、都不对

点击查看答案

第8题

1. 设有以下程序： 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

A、A

B、B

C、C

D、D

点击查看答案

第9题

有如下事件过程：

Private Sub Form. Click（）

Dim n As Integcr

x=0

n=InputBox("请输入一个整数")

For i=1 To i

x=x+1

Next j

Next i

Print x

End sub

程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（）。

A.13

B.14

C.15

D.16

点击查看答案

第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年4月甘肃自考成绩查询入口已开通海南2024年10月自考本科需要什么学历条件及要求广西2024年10月自考报考条件及要求有哪些湖南2024年10月自考本科的条件有哪些有什么限制 2024自考文凭怎么考最全报考流程分享 2024年自考考试时间安排表开考时间是几月自学考试大专要考哪些科目 2024自考开考课程一览表 2024年10月自学考试专业和科目一览表 2024年10月全国各省自考专业科目一览表自考统考时间一般是每年的几月份

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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