A、3
B、8
C、14
D、10
A、3
B、8
C、14
D、10
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
ElSe
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If______Then
Textl=Str(x)&"是偶数."
ElSe
Text1=Str(x)&"是奇数."
End If
End Sub
程序运行后单击命令按钮,在输入对话框中输入19,则在Text1中显示“19是奇数”。那么程序的空白处应填写( )。
A.result(x)="偶数" B.result(x)="奇数"
C.result(x)D.NOT result(x)
A.旅游景点:长城
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
Private Sub Command1 click()
A=InputBox("请输入日期(1~31)")
t="旅游景点:"_
&Ⅱf(A>0 And A<=10,"长城","")_
&Ⅱf(A>10 And A<=20,"故宫","")_
&Ⅱf(A>20 And A<=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘输入5,则在文本框中显示的内容是()。
A.旅游景点:长城
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
B、去往苏州方向旅游
C、去往杭州方向旅游
D、去往杭州,苏州方向旅游
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!