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

搜题

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

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

[主观题]

有如下程序，若程序运行后，从键盘输入依次输入80，88，50，10，则在Label1显示的是__________。 Privat

e Sub Command1_Click() Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a ＜ min Then min = a End If Next Label1.Caption = min End Sub

A、0

B、10

C、50

D、80

E、88

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

抱歉！暂无答案，正在努力更新中……

更多“有如下程序，若程序运行后，从键盘输入依次输入80，88，50，10，则在Label1显示的是__________。 Privat”相关的问题

第1题

有如下程序，若程序运行后，从键盘输入依次输入56，88，23，14，则在Label1显示的是__________。 Privat

e Sub Command1_Click() Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a ＜ min Then min = a End If Next Label1.Caption = min End Sub

A、0

B、14

C、23

D、56

E、88

点击查看答案

第2题

有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1

显示的是__________。 Private Sub Command1_Click() Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a ＜ min Then min = a End If Next Label1.Caption = min End Sub

A、14

B、23

C、56

D、88

E、0

点击查看答案

第3题

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： P

rivate Sub Command1 Click（） XzInputBox("输入X："，，0) y=InputBox("输入y："，，0) Label1．Caption=x+y End Sub 运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（）。

A.程序运行有错误，数据类型不匹配

B.程序运行有错误，InputBox函数的格式不对

C.在Label1中显示5

D.在Label1中显示23

点击查看答案

第4题

有以下程序：程序运行后，若从键盘输入（从第1列开始) 123＜回车＞ 45678＜回车＞则输出

有以下程序：

程序运行后，若从键盘输入(从第1列开始)

123＜回车＞

45678＜回车＞

则输出结果是（）。

A.1267

B.1256

C.1278

D.1245

点击查看答案

第5题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后

编写如下两个事件过程：程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。

点击查看答案

第6题

程序运行后，若从键盘输入（从第1列开始) 123 ＜回车＞ 45678 ＜回车＞则输出结果是（）

A.1245

B.1256

C.1278

D.1267

点击查看答案

第7题

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

若有如下程序，在文本框中输入“VisualBasic”，程序运行后Label1显示的是__________。 Dim s$,ch$,k% s="" For k=1 TO Len（Text1.Text) ch = Mid（Text1.Text,k,1) s = ch+s Next k Label1.Caption = s

A.BasicVisual

B.VISUALBASIC

C.cisaBlausiV

D.visualbasic

点击查看答案

第9题

有如下程序，运行该程序后从键盘接收1个有效的（≥0)数据。如果输入的数据无效，则要求重新输入，否则显示该数据

有如下程序，运行该程序后从键盘接收1个有效的(≥0)数据。如果输入的数据无效，则要求重新输入，否则显示该数据的平方根。程序空白处应填写( )。

Dim s As Integer, i As Integer

Dim flag As Boolean, p As Integer

flag=True

Do While flag

s=val(InputBox("请输入："))

If s＜0 Then

MsgBox"输入无效!请重新输入。"

Else

MsgBox Sqr(s)

______

End If

Loop

A．flag=True B．flag=False C．True=flag D．False=flag

点击查看答案

第10题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如

下两个事件过程：Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

A．空

B．abcdef

C．abc

D．def

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年成人高考各科目考试时间详解 2024周口自考本科招生专业一览表汇总「含科目」 2024年湖南10月自学考试成绩什么时候出来考完多久公布天津2024成人高考考试时间及相关信息 2023年河南农业职业学院成人高考过线没录取怎么办？补救办法 2024四川10月自考什么时候出成绩多久能查到 2024年黑龙江成人高考考试时间及相关信息 24年初级经济师考试科目都有哪些 2024年宁夏成考考试时间安排初级经济师考试通过率有多少

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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