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

搜题

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

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

[单选题]

下面的程序运行后，Label1显示的结果是______。 Dim n,s As Integer n = 5127 s = 0 Do While n ＞ 0 s = s + n mod 10 n = n \ 10 Loop Label1.Text = s

A.5

B.10

C.15

D.7215

参考答案

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

查看官方参考答案

网友提供的答案

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

查看全部

· 有5位网友选择 B，占比55.56%
· 有2位网友选择 A，占比22.22%
· 有1位网友选择 C，占比11.11%
· 有1位网友选择 D，占比11.11%

ABCD

提交我的答案

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

更多“下面的程序运行后，Label1显示的结果是______。 Dim n,s As Integer n = 5127 s = 0 Do While n ＞ 0 s = s + n mod 10 n = n…”相关的问题

第1题

下列程序运行时，单击窗体，执行结果为【】。

说明：在窗体上有一Label控件，名为lblDate。

Dim Y As Integer,m As Integer,d As Integer,w1 As Integer

Dim Rq As Date

Dim W2 As String

Private Sub Form_Click()

Rq=Date

Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)

w1=Weekday(x)

Select Case w1

Case 1

W2="日"

Case 2

W2="一"

Case 3

W2="二"

Case 4

W2="三"

Case 5

W2="四"

Case 6

W2="五"

Case 7

W2="六"

End Select

bldatE．Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2

End SUb

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click( ) Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30

点击查看答案

第3题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：

Sub S(x As Integer，Y As Integer)

Static z As Integer

y=x*x+z

z=y

End Sub

Private Sub Command1_Click()

Dim i As Integer，z As Integer

m=0

z=0

For i=1 To 3

S i，z

m=m+z

Next i

Label1．Caption=Str(m)

End Sub

程序运行后，单击命令按钮，在标签中显示的内容是

A．50

B．20

C．14

D．7

点击查看答案

第4题

设窗体上有一个名称为label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在label1标签中，单击鼠标右键则停止实时显示，并将标签中内容清除，下面的程序可实现这一功能，请填空。

Dim down as Boolean

Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)

Select Case【8】

Case 1

Down=true

Case2

Down=false

End select

End Sub

Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)

If 【9】then

【10】=”X-” & X & ” Y-” & Y

Else

Label1.caption=””

End If

End Sub

点击查看答案

第5题

设在窗体上有一个文本框Text1，一个标签控件数组Label1，共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容显示到文本框中，请填空。 Private Sub Label1_Click(Index As Integer) Text1.Text = ______ End Sub

点击查看答案

第6题

窗体中有文本框Text1和标签Label1。运行程序，输入大于0的整数m，单击按钮Command1，程序判断m是否为素数，若是素数，则Label1显示"m是素数"，否则显示"m是合数"。事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) result = m & " 是素数" k = 2 Do While k <= 1 2 m if mod k="0" then result="m" & " 是合数" 【】 end + loop me!label1.caption="result" sub 程序【> A、Exit

B、Exit Loop

C、Exit While

D、Exit Do

点击查看答案

第7题

下面的程序执行完后a，b的值分别为______。 Dim x, y, a, b As Integer x = 12 : y = 8 a = 1 : b = x * y Do While x Mod 2 = 0 And y Mod 2 = 0 x = x \ 2 y = y \ 2 a = a * 2 Loop Do While x <> y If x > y Then x = x - y Else y = y - x End If Loop a = a * x b = b \ a

A、4 24

B、24 4

C、4 12

D、8 24

点击查看答案

第8题

下列程序段执行后，Label1显示的是______。 Dim s As String = "你好华科大，大美华科大，我爱你华科大！" Dim s1 As String Dim k, p As Integer k = InStr(s, "华科大") p = Len(s) Do While k > 0 s1 = Microsoft.VisualBasic.Left(s, k - 1) s1 &= "HUST" s1 &= Microsoft.VisualBasic.Right(s, p - k + 1 - Len("华科大")) s = s1 k = InStr(s, "华科大") p = Len(s) Loop Label1.Text = s

A、你好HUST

B、你好华科大

C、我爱你HUST

D、你好HUST，大美HUST，我爱你HUST！

点击查看答案

第9题

下列程序段的运行结果为______。 Label1.Text = "" For i = 3 To 1 Step -1 Label1.Text &= Space(5-i) For j = 1 To 2 * i - 1 Label1.Text &= "*" Next j Label1.Text &= vbCrLf Next i

A、

B、

C、

D、

点击查看答案

第10题

程序段如下，程序运行后消息框显示的结果是______。 Dim x%, n% x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop MsgBox(n & " " & x)

A、2 72

B、2 50

C、3 72

D、3 50

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

湖南成考只能社会人员报考吗？（湖南成人高考高升本要读多少年？）江苏成考报名入口,，2024年成人高考考试时间，江苏成人高考考试科目详细，2024继续教育网上报考流程！（2024年报考成人高考专业选择指南） 2024吉林自考报名条件及学历要求自考是函授学历吗—函授和业余学习形式哪个最省时间？—函授学历考注册建筑师可以吗 2024吉林自考网上报名流程及办法 2024年7月江苏自考什么时候可以报名几月份报考中专毕业怎么升函授本科—函授本科最快多久毕业？—浙江外语外贸大学有函授本科吗？ 2024年成人怎样考取自考大专文凭用处大不大函授专升本科有用吗？—中医函授本科可以报考哪些学校？—函授要多长时间可以学出来

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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