Subtest2()a=12：b=12：c=5Label1.Caption=""Label2.Caption=""Ifa>bOrNotb<cThenLab_刷题宝

题干

Sub test2()
a = 12：b = 12：c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后，在标签Label3的Caption属性值是( )

A．"monday"

B．"tiger"

C．"mondaytiger"

D．""

上一题下一题 0.99难度选择题更新时间:2016-03-16 03:33:14

答案(点此获取答案解析）

同类题1

设X=5278,能得到其百位上数字“2”的正确表达式是( ）

B．X\100 MOD 10

C．X\100 MOD 100

D．X\10 MOD 10

同类题2

下列VB程序运行时，在文本框Text1中输入“h”后，单击命令按钮Command1后，标签框Label1中显示的内容是____ ____。
Private Sub Command1_Click（）
Dim a As String
a = Text1.Text
a = Chr（Asc（a） - 32）
Label1.Caption = a
End Sub

同类题3

当X分别为0，6时，表达式X<5 or X>=6 and not (X>=6)的值分别为（）。

A．true，false	B．true，true
C．false，true	D．false，false

同类题4

输入一个两位正整数，个位和十位交换后在LABEL1上和窗体上分别输出。
PRIVATE    SUB   FORM-CLICK(   )
DIM   X   AS   INTEGER, G AS   INTEGER
DIM   S AS    INTEGER , Y AS   INTEGER
X=VAL(INPUTBOX(“请输入一个两位正整数”))
G=________    ‘个位
S=________    ‘十位
Y=________   ‘新数
________
________
END    SUB

同类题5

“如果a，b，c相等，那么y＝a＋b＋c”，能实现该功能的VB语句是

A．If a=b And b=c Then y=a+b+c

B．If a=b=c Then y=a+b+c

C．If a＝b Or b=c Or a=c Then y=a+b+c

D．Ifa－b＝b－c Then y=a+b+c

相关知识点