VB填空题

2024年4月29日发(作者：)

1.

以下程序的功能是随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然

后取其平均数。

Private Sub Form_Click()

Dim s As Integer, i As Integer

Dim k As Integer, max As Integer, min As Integer

Randomize

k = Int(Rnd * 100) + 1

max = k: min = k

s=k___

________

For i = 1 To 19

k = Int(Rnd * 100) + 1

s = s + k

If

k>max_

_______Then max = k

If k < min Then min = k

Next i

s = _s-max-min_

______

Print "average="; s / 18

End Sub

2. 阅读下面程序，当单击窗体后，窗体上输出的是

_12 7 4___

_______。

Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim k As Integer

For i = 1 To 10 Step 3

For j = 1 To 10 Step 2

If j >= 5 Then i = i + 4: Exit For

j = j + 1

k = k + 1

Next j

If i > 8 Then Exit For

Next i

Print i; j; k

End Sub

3. 下列程序段的执行结果为

_12 2 4 __

________。

n = 0

For i = 1 To 3

For j = 5 To i Step -1

n = n + 1

Next j

Next i

Print n; j; i

4. 运行下面的程序，当单击窗体时，窗体上显示的内容为_

31 63__

_______。

Private Sub Test(x As Integer)

x = x * 2 + 1

If x < 8 Then

Call Test(x)

End If

x = x * 2 + 1

Print x;

End Sub

Private Sub Form_Click()

Test 3

End Sub

5.以下程序的功能是：从键盘上输入两个正整数，比较其大小，并输出相应的信息。如：

将两个数赋给两个变量x和y，如果x=y，提示"两个数相等"，x>y，提示"第一个数大于

第二个数"，x

Private Sub Command1_Click()

Dim x As Integer, y As Integer

If <> "" And IsNumeric() Then '如果文本框已输入数值

数据

x = Val() '将输入的数值赋给变量x

Else

MsgBox "请在文本框中输入数值"

us

Exit Sub

End If

If <> "" And IsNumeric() Then

y = Val()

Else

MsgBox "请在文本框中输入数值"