2015~2016学年第一学期VB期末考试（A卷） 2015级

a = a + a fy = a End Function

10．执行下面程序，单击按钮Cmd1后，在InputBox函数对话框中输入4（或直接单击“确

定”按钮），窗体第三行显示的内容是 （12） 。 Option Explicit

Private Sub Cmd1_Click() Dim days As Integer

days = InputBox(\输入正整数\ Print fun(days) End Sub

Private Function fun(D As Integer) As Integer If D = 1 Then fun = 1 Else

fun = 2 * fun(D - 1) + 1 Print D; fun End If End Function

11．以下程序的功能是从随机产生的20 个20~200（含20 和200）的整数中，找出能够同时被3和5 整除的数的最大值，并显示出来。请完善程序。 Option Base 1 Private Sub Command1_Click() Dim a(20) As Integer m = 0 For i = 1 To 20 a(i) = Int(Rnd * (13) ) + 20 If a(i) Mod 3 = 0 and a(i) Mod 5 = 0 Then If a(i) > m Then m = a(i) End If Next i If (14) Then Print \没有满足条件的数\ Else Print \满足条件的数是\ End If End Sub 12、以下程序的功能是：先将随机产生的10 个不同的整数放入数组a 中，再将这10 个数按升序方式输出。请完善程序。 Private Sub Form_Click()

Dim a(10) As Integer, i As Integer Randomize i = 0 Do

第 9 页 共 11 页

2015~2016学年第一学期VB期末考试（A卷） 2015级

num = Int(Rnd * 90) + 10

For j = 1 To I '检查新产生的随机数是否与以前的相同，相同的无效 If num = a(j) Then Exit For Next j

If j > i Then i = i + 1

a(i) = （15） End If

Loop While i < 10 For i = 1 To 9

For j = （16） To 10 If a(i) > a(j) Then temp = a(i) a(i) = a(j) （17） End If Next j Next i

For i = 1 To 10 Print a(i) Next i End Sub

13、以下程序的功能是：找出指定范围内包含因子个数最多的整数，允许因子个数最多的整数不止一个，若有多个则全部输出到文本框中。请完善程序。

Option Explicit Option Base 1

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer Dim s As String, mx As Integer Dim yz() As Integer, c() As Integer m = Text1: n = Text2 ReDim c(m To n)

第 10 页 共 11 页

2015~2016学年第一学期VB期末考试（A卷） 2015级

For i = （18） s = i & \ Call qyz(i, yz) c(i) = UBound(yz)

For j = 1 To UBound(yz) s = s & yz(j) & \ Next j

s = Left(s, Len(s) - 1) List1.AddItem s Next i mx = c(m)

For i = m+1 To n

If c(i) > mx Then mx = c(i) Next i

For i = m To n

If c(i) = mx Then Text3 = Text3 & i & \ Next i

Text3 = Left(Text3, Len(Text3) - 1) End Sub

Private Sub qyz(ByVal n As Integer, yz() As Integer) Dim i As Integer, p As Integer For i = 1 To n - 1

If （19） Then p = p + 1

（20） yz(p) = i End If Next i End Sub

三、 编程题（10分×1=10分）

题目见答题纸。

第 11 页 共 11 页' 统计因子个数的过程