〖第1题〗
Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【____】.
〖第2题〗
在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【____】属性的值设置为True.
〖第3题〗
当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【____】属性设置成空白.
〖第4题〗
下面程序的作用是让你从键盘上输入一个字符,然后判断该字符是大写、
小写字母还是奇数或者偶数,通过消息框弹出相应的信息。
请在【】处填入正确的内容。
Private Sub Form_Click()
Dim Msg, UserInput
Msg = "Please enter a letter or number from 0 through 9."
UserInput = InputBox(Msg)
If Not IsNumeric(UserInput) Then
If Len(UserInput) <> 0 Then
Select Case 【____】(UserInput)
Case 65 To 90
Msg = "你输入大写字母"
Msg = InputBox(Msg)
Case 97 To 122
Msg = "你输入小写字母"
Msg = InputBox(Msg)
Case Else
Msg = "你没有输入字母或数字"
End Select
End If
Else
Select Case CDbl(UserInput)
Case 【____】
Msg = UserInput & "是奇数"
Case 【____】
Msg = UserInput & "是偶数"
Case Else
Msg = "你输入的数字越界"
Msg = Msg & "the requested range"
End Select
End If
MsgBox Msg
End Sub
〖第5题〗
当x=2时,语句if x=2 then Print x=2 的结果值是【____】.
〖第6题〗
输入任何一个英文字母x,
若x的值 为"a","c","d-f" ,则显示x的大写字母;
若x的值为"m","o","p-z",则显示x的小写字母;
若为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
请在【】处填入正确的内容。
Private Sub Command1_Click()
x = Text1.Text
【____】
Case 【____】
Label3.Caption = UCase(x)
Case "m", "o", "p" To "z"
Label3.Caption = LCase(x)
Case Else
【____】
End Select
End Sub
〖第7题〗
输入任何一个英文字母x,若x的值 为"a","c","d-f" ,则显示x的大写字母;
若x的值为"m","o","p-z",则显示x的小写字母;
若为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
请在【】处填入正确的内容。
Private Sub Command1_Click()
x = Text1.Text
【____】
Case "a", "c", "d" To "f"
Label3.Caption = UCase(x)
Case 【____】
Label3.Caption = LCase(x)
【____】
Label3.Caption = Trim(x) + "a"
End Select
End Sub