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

[单选题]

下列程序段执行后，Label1显示的结果是______。 Dim a, b, k, m As Integer a = 16 b = 24 m = a If a ＞ b Then m = b For k = m To 1 Step -1 If a Mod k = 0 And b Mod k = 0 Then Exit For Next Label1.Text = k

A.2

B.4

C.8

D.16

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“下列程序段执行后，Label1显示的结果是______。 D…”相关的问题

第1题

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Form_Click（）

Dim arr（10, 10） As Integer

Dim i As Integer, j As Integer

For i = 2 To 4

For j = 2 To 4

arr（i, j） = i * j

Next j

Next i

Label1.Caption = Str（arr（2, 2） + arr（3, 3））

End Sub

程序运行后，单击窗体，在标签中显示的内容是（）。

A．12

B．13

C．14

D．15

点击查看答案

第2题

在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。

A．12

B．13

C．14

D．15

点击查看答案

第3题

A．12

B．13

C．14

D．15

点击查看答案

第4题

在窗体上画—个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_CIick( ) Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 srr(i，j)=i*j Next j Next i Label1.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A．12

B．13

C．14

D．15

点击查看答案

第5题

下列程序是在文本框中输入成绩，按回车后，根据成绩显示...

下列程序是在文本框中输入成绩，按回车后，根据成绩显示星级，如下图所示。星级成绩范围：90—100分为3星，75-89分为2星级，60-74分为1星级，小于60分0星级。Private Sub TextBox1_KeyPress(···) Handles TextBox1.KeyPress Dim m, n As Integer If Asc(_____(1)_____) = 13 Then m = Val(TextBox1.Text) Select Case _____(2)_____ Case 90 To 100 Label1.Text = m & "分3星" Case 75 To 89 Label1.Text = m & "分2星" Case 60 To 74 Label1.Text = m & "分1星" Case _____(3)_____ Label1.Text = m & "分0星" End Select End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

点击查看答案

第6题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A． 12

B．13

C．14

D．15

点击查看答案

第7题

下列程序段执行后，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 &a

A、你好HUST

B、你好华科大

C、我爱你HUST

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

点击查看答案

第8题

以下程序段：

Private Sub Form_Load( )

Dim Nop As Integer, Op As String * 1

Num1 = 3

Num2 = 2

Nop = val(Inputbox("请输入1-4之间的整数"))

Select Case Nop

Case 1

Op = "+"

Result = Num1 + Num2

Case 2

Op = "-"

Result = Num1 - Num2

Case 3

Op = "×"

Result = Num1 * Num2

Case 4

Op = "÷"

Result = Num1 / Num2

End Select

Label1= Num1 & Op & Num2 & "=" & Result

End Sub

窗体运行后，输入1，则label1的标题显示结果为()

A.3+2=5

B.3-2=1

C.3×2=6

D.3÷2=1.5

点击查看答案

第9题

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

A．400

B．20

C．441

D．出错信息

点击查看答案

第10题

在窗体中先建立一个名称为label1的控件数组(它的index属性为0)，当执行以下程序段

：

PrivateSubForm_Load()

DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsInteger

mtop=0

Fori=1To8

mleft=50

Forj=1To8

k=(i-1)*8+j

LoadLabel1(k)

Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))

Label1(k).Visible=True

Label1(k).Top=mtop

Label1(k).Left=mleft

mleft=mleft+Label1(0).Width

Nextj

mtop=mtop+Label1(0).Height

Nexti

EndSub

执行后的效果是( )

A.在窗体中显示16行的黑、白颜色相间的棋盘

B.在窗体中显示8行10列的黑色棋盘

C.在窗体中显示8行8列的黑、白颜色相间的棋盘

D.以上说法都不正确

点击查看答案