VB题库—程序填空

程序填空

〖第1题〗『程序填空』(1分)(题号:59) '-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

' 功能：输入一个数,若大于0,则显示"+"；若小于0，

' 则显示 "-"；若等于"0",则显示"零"。

'-------------------------------------------------------

Private Sub Command1_Click( )

x = Val(Text1.Text)

Select Case x

'**********SPACE**********

Case is > 0

Label1.Caption = "+"

Case Is < 0

'**********SPACE**********

Label1.Caption = "-"

'**********SPACE**********

Case is =

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

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