程序填空
〖第1题〗『程序填空』(1分)(题号:59)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
' 功能：输入一个数,若大于0,则显示"+"；若小于0，
' 则显示 "-"；若等于"0",则显示"零"。
'-------------------------------------------------------
Private Sub Command1_Click( )
x = Val(Text1.Text)
Select Case x
'**********SPACE**********
【?】
Label1.Caption = "+"
Case Is < 0
'**********SPACE**********
【?】
'**********SPACE**********
【?】
Label1.Caption = "零"
End Select
End Sub
答案：
1). Case Is > 0
2). Label1.Caption = "-"
3). Case 0 或 Case Else 或 Case Is = 0
〖第2题〗『程序填空』(1分)(题号:60)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：输入任何一个英文字母x,
' 若x的值为"a","c","d-f" ,则显示x的大写字母；
' 若x的值为"m","o","p-z",则显示x的小写字母；
' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
'-------------------------------------------------------
Private Sub Command1_Click()
x = Text1.Text
'**********SPACE**********
【?】
'**********SPACE**********
Case 【?】
Label1.Caption = UCase(x)
Case "m", "o", "p" To "z"
Label1.Caption = LCase(x)
Case Else
'**********SPACE**********
【?】
End Select
End Sub
答案：
1). Select Case x
2). "a", "c", "d" To "f"
3). Label1.Caption = Trim(x) + "a" 或 Label1.Caption = x + "a"
〖第3题〗『程序填空』(1分)(题号:36)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序的功能如(图1)。
'-------------------------------------------------------
Private Sub Form_Click()
Dim a%, b%, c%, d!
Dim x1, x2
Dim p, q, r
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
d = b * b - 4 * a * c
p = -b / (2 * a)
If d >= 0 Then
'**********SPACE**********
If 【?】 Then
r = Sqr(d) / (2 * a)
x1 = p + r
x2 = p - r
Else
x1 = p
x2 = p
'**********SPACE**********
【?】
Print "x1="; x1, "x2="; x2
'**********SPACE**********
【?】
q = Sqr(-d) / (2 * a)
Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"
End If
End Sub
答案：
1). d > 0 或 0 < d
2). End If
3). Else
〖第4题〗『程序填空』(1分)(题号:51)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：下面的程序段用于建立文件并输出文件，文件内容如下：
'
'*****
' *****
' *****
' *****
' *****
'-------------------------------------------------------
Private Sub Form_Click()
'**********SPACE**********
Open "c:\1.txt" For 【?】 As #1
For i = 1 To 5
vb编程基础知识题库 Print #1, Spc(i); "*****"
Next i
'**********SPACE**********
【?】
'**********SPACE**********
Open "c:\1.txt" For 【?】 As #1
For i = 1 To 5
Line Input #1, x
Print x
Next i
Close #1
End Sub
答案：
1). Output
2). Close #1 或 Close
3). Input
〖第5题〗『程序填空』(1分)(题号:49)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序段用于求∑n!
'-------------------------------------------------------
Private Sub Form_Click()
Dim sum As Integer, n As Integer
n = InputBox("请输入一个正整数")
sum = 0
For i = 1 To n
'**********SPACE**********
sum =【?】
Next i
Print sum
End Sub
Private Function mul(ByVal x As Integer)
Dim s As Integer, i As Integer
s = 1
'**********SPACE**********
For i = 1 To 【?】
s = s * i
Next i
'**********SPACE**********
【?】
End Function
答案：
1). sum★+★ mul(i)
2). x
3). mul = s
〖第6题〗『程序填空』(1分)(题号:61)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好
' (75分以上),及格(60分以上),不及格几个等级。
'-------------------------------------------------------
Private Sub Command1_Click()
x = Val(Text1.Text)
If x >= 90 Then
Label1.Caption = "优秀"
'**********SPACE**********
ElseIf 【?】Then
Label1.Caption = "良好"
ElseIf x >= 60 Then
'**********SPACE**********
【?】
'**********SPACE**********
【?】
Label1.Caption = "不及格"
End If
End Sub
答案：
1). x >= 75 或 75 <= X
2). Label1.Caption = "及格" 或 Label1 = "及格"
3). Else
〖第7题〗『程序填空』(1分)(题号:57)
'-------------------------------------------------------
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论