2021年VB程序设计考试题库考试专用.doc

程序设计题
1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并依照输入数用消息框显示"正数"、"负数”或"零"。
2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除数。并求出所有数之和存入变量SUM中
3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，成果输出在窗体上。
4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…前10项，并求其和，将和保存在变量s中。

5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分硬币每种至少有一枚），求出其所有换法，把成果输出在窗体上。将所有换法数目存入变量N中
6、题目：单击窗体。)求1!+2!+3!+4!+5!并将成果输出到窗体上。成果存入变量S中
7、题目：(事件)单击窗体。(响应)生成一种一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17
写程序求出这个数组中最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中
8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其她数整除数。
9、题目：(事件)单击窗体。(响应)求10~20之间所有素数乘积并输出在窗体上。将成果存入变量L中。
10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100值。将成果存入变量J中。
1题
n = InputBox("输入一种自然数")
If n > 0 Then
result = "正数"
ElseIf n < 0 Then
result = "负数"
ElseIf n = 0 Then
result = "零"
End If
MsgBox "输入数据" & n & "为：" & result
2题
Dim i As Integer
For i = 201 To 300
If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then
Print (CStr(i))
sum = sum + i
End If
Next
Print sum
3题
Dim i As Integer
s = 0
For i = 1 To 10
s = s + 1 / (i ^ i)
Next
Print (s)
4题
Dim i，j，k，m As Integer
s = 0 :i = 2:j = 1
For k = 1 To 10
s = s + i / j
m = j
Print (CStr(i)) & "/" & CStr(j)
j = i
i = i + m
Next
5题
Dim i，j，k As Integer
For i = 1 To 100
For j = 1 To 50
For k = 1 To 20
If ((i + 2 * j + k * 5) = 100) Then
Print (CStr(i))
Print (CStr(j))
Print (CStr(k))
n = n + 1
End If
Next
Next
Next
6题
Dim i，j，k As Integer
For i = 1 To 5
k = 1
For j = 1 To i
k = k * j
Next
s = s + k
Next
Print (CStr(s))
7题
Dim a(9) As Integer
Dim i，s As Integer
a(0) = 15：a(1) = 23：a(2) = 72
a(3) = 43：a(4) = 96：a(5) = 23
a(6) = 3：a(7) = 65：a(8) = 88
a(9) = 17：max = a(0)：min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(max))
Print (CStr(min))
Print (CStr(aver))
8题
Dim i，j，s As Integer
For i = 100 To 200
For j = 2 To Sqr(i)
If (i Mod j) = 0 Then
Print (CStr(i))
sum = sum + i
Exit For
End If
Next
Next
Print sum
9题
Dim i%，j%，b As Boolean
l = 1：b = False
For i = 10 To 20
For j = 2 To i - 2
If i Mod j = 0 Then
b = True
End If
Next
If b = False Then
l = l * i
End If
b = False
Next
Print Str(l)

10题
Dim i As Integer
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + 1 / i
ElseIf i Mod 2 = 0 Then
j = j - 1 / i
End If
Next
Print j

11、题目： (事件)单击窗体。(响应)如果一种数真因子之和等于这个数自身，则称这样数为“完全数”。例如，整数28真因子为1、2、4、7、11，其和是28。因而28是一种完全数。请编写一种程序，求出500以内最大完全数。并存入变量SUM中。使用for...next语句完毕程序
12、题目：应用选取法对数组A按升序排列
13、题目：单击窗体。求一种数,它除3余2，除5余3，除7余2，请将满足上面条件最小数保存到sum变量中。使用for...next语句完毕程序。
14、题目：编写函数fun，函数功能是：判断一种字符是字母字符、数字字符还是其她字符，并做相应显示。字母字符显示字符串"字母"，数字字符显示字符串"数字"，其她字符显示字符串"其她"，规定使用IF语句来实现。
Private Function fun(n As String) As String
'**********Program**********

'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun("A")
Print fun("9")
Print fun("&")
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim l As Integer
Dim a(10) As String * 1
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10
Line Input #fIn，a(i)
Print #fOut，fun(a(i))
Next
Close #fIn
Close #fOut
End Sub
15、题目：编写函数fun，函数功能是：依照一种百分制成绩mark（整数），显示相应五级制评估。条件如下：
'mark不不大于等于90显示"先进"
'mark不大于90且不不大于等于80显示"良好"
'mark不大于80且不不大于等于70显示"中档"
'mark不大于70且不不大于等于60显示"及格"
'mark不大于60显示"不及格"
'规定使用IF语句来实现。
Private Function fun(mark As Integer) As String
'**********Program**********

'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(90)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim s As String
Dim a(10) As Integer
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10
Line Input #fIn，s
a(i) = Val(s)
Print #fOut，fun(a(i))
Next
Close #fIn
Close #fOut
End Sub
16、题目：编写函数fun，函数功能是：当x初值为10，每年增长率为千分之八，计算多少年后来x值能达到y，并显示所需年数值（变量名必要为n）。
'规定使用Do While ... Loop语句来实现。
Private Function fun(y As Single) As Long
Dim x As Single，n As Long
'**********Program**********

'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(15)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10
Line Input #fIn，a(i)
Print #fOut，Trim(Str(fun(Val(a(i)))))
Next
Close #fIn
Close #fOut
End Sub
17、题目：编写函数fun，函数功能是：求从m到n乘积并显示，'如：m为2，n为4时，显示"24"'存储连乘乘积变量必要为Product'规定使用For语句来实现。
Private Function fun(m As Integer，n As Integer) As Long
Dim Product As Double，t As Integer
If m > n Then t = m：m = n：n = t
'**********Program**********

'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(4，2)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 2
Line Input #fIn，a(i)
Line Input #fIn，a(i + 1)
Print #fOut，Trim(Str(fun(Val(a(i))，Val(a(i + 1)))))
Next
Close #fIn
Close #fOut
End Sub
18、题目：编写函数fun，函数功能是：判断一种数与否为素数。并显示相应提示。如：
该数为素数时，显示"素数"；该数为非素数时，显示"非素数"'规定使用For语句来实现，用布尔型变量flag作为该数与否为素数标志，注意：不得使用Goto语句。
Private Function fun(m As Long) As String
Dim flag As Boolean
'**********Program**********

'********** End **********
End Function

Private Sub Form_Load()
Show
Print fun(225)
NJIT_VB
End Sub

Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn，a(i)
Print #fOut，fun(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub
Next
Close #fIn
Close #fOut
End Sub
19、题目：编写函数fun，函数功能是：求1~100以内能被m整除或能被n整除数总和并显示。如：
'm为15，n为11时，显示"810"，'存储总和变量必要为Sum，'规定使用For语句来实现。
Private Function fun(m As Integer，n As Integer) As Long
Dim Sum As Long
'**********Program**********

'********** End **********
End Function
Private Sub Form_Load()
Show
16题x = 10
n = 0
Do While x < y
x = x * 1.008
n = n + 1
Loop
fun = n

Print fun(15，11)
19 题Sum = 0
For i = 1 To 100
If i Mod m = 0 Or i Mod n = 0 Then
Sum = Sum + i
End If
Next i
fun = Sum

NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
15题If mark >= 90 Then
fun = "先进"
ElseIf mark >= 80 Then
fun = "良好"
ElseIf mark >= 70 Then
fun = "中档"
ElseIf mark >= 60 Then
fun = "及格"
Else
fun = "不及格"
End If

Dim a(10) As String
20题
Dim s，i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
s = s + i
End If
Next
Fun = s

Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 2
Line Input #fIn，a(i)
Line Input #fIn，a(i + 1)
Print #fOut，Trim(Str(fun(Val(a(i))，Val(a(i + 1)))))
Next
Close #fIn
Close #fOut
End Sub
20、题目：编写函数fun，函数功能是：计算并输出给定整数n所有因子之和（不涉及1与自身）。规定n值不不不大于1000?例如：n值为855时，应输出704。
21、题目：：编写函数fun其功能是:判断一种整数w各位数字平方之和能否被5整除 ，可以被5整除则返回1 ，否则返回0
22、题目：编写函数fun其功能是：依照整型形参m，计算如下公式值:
' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)
求：函数中用到中间变量必要声明为Single类型。
11题
Dim i As Integer
dim s as integer
For i = 500 To 1 Step -1
s = i
For j = i - 1 To 1 Step -1
If i Mod j = 0 Then
s = s - j
End If
Next j
If s = 0 Then
Exit For
End If
Next i
Print i
sum=i
12题
Dim i，j，imin，temp As Integer
For i = 1 To n - 1
imin = i
For j = i + 1 To n
If a(imin) > a(j) Then imin = j
Next j
temp = a(i)
a(i) = a(imin)
a(imin) = temp
Next i
13题
Dim i As Integer
For i = 2 To 1000
If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then
Print i
Exit For
End If
Next i
sum = i
14 题If UCase(n) >= "A" And UCase(n) <= "Z" Then
fun = "字母"
ElseIf n >= "0" And n <= "9" Then
fun = "数字"
Else
fun = "其她"
End If
15 题
If mark>=90 then
Fun=先进
Elself mark >=80 then
Fun=良好
Elseif mark>=70 then

Fun=中档
Elseif mark>=60 then
Fun=及格
Else
Fun=不及格

16题x = 10
n = 0
Do While x < y
x = x * 1.008
n = n + 1
Loop
fun = n

17题Product = 1
For i = m To n
Product = Product * i
Next i
fun = Product
18题 flag = True
For i = 2 To m - 1
If m Mod i = 0 Then flag = False
Next i
If flag Then
fun = "素数"
Else
19 题Sum = 0
For i = 1 To 100
If i Mod m = 0 Or i Mod n = 0 Then
Sum = Sum + i
End If
Next i

20题
Dim s，i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
s = s + i
End If
Next
21题
Dim k As Integer，s As Integer
Do
s = s + (w Mod 10) * (w Mod 10)
w = Int(w / 10)
Loop While w <> 0
If s Mod 5 = 0 Then
k = 1
Else
k = 0
End If
fun = k

22题
Dim y As Double
Dim i As Integer
For i = 0 To m
y = y + 1 / (i + 5)
Next
Fun = y