发布时间 : 星期日 文章VB复习题(带答案)(1)讲解更新完毕开始阅读ce18a88681eb6294dd88d0d233d4b14e85243e31
的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中
6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量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
7、题目： If a(i) < min Then (事件)单击窗体。(响应)生成一个
min = a(i) 一维数组(10个数组元素依此为： End If ' 15、23、s = s + a(i) 72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小Next aver = Int(s / 10) 值和平均值，并输出在窗体上。将最大Print (CStr(max)) 值，最小值，平均值分别存入变量Print (CStr(min)) Max,Min,Aver中 Print (CStr(aver))
8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。
10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ?? + 1/99 - 1/100的值。将结果存入变量J中。 11、题目： (事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的真因子为1、2、4、7、11，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全数。并存入变量SUM中。使用for...next语句完成程序
8题 10题 Dim i, j, s As Integer Dim i As Integer For i = 100 To 200 For i = 1 To 100 For j = 2 To Sqr(i) If i Mod 2 = 1 Then If (i Mod j) = 0 Then j = j + 1 / i Print (CStr(i)) ElseIf i Mod 2 = 0 Then sum = sum + i j = j - 1 / i Exit For End If End If Next Next Print j Next Print sum 9
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 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) 12、题目：应用选择法对数组A按升序排列
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、题目：单击窗体。求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。使用for...next语句完成程序。
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、题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串\字母\，数字字符显示字符串\数字\，其他字符显示字符串\其他\，要求使用IF语句来实现。
Private Function fun(n As String) As String
If UCase(n) >= \'**********Program**********
Then
fun = \字母\'********** End ********** ElseIf n >= \ fun = \数字\End Function
Else Private Sub Form_Load()
fun = \其他\ Show End If Print fun(\ Print fun(\ 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 & \ fOut = FreeFile
Open App.Path & \ 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显示\优秀\
If mark >= 90 Then 'mark小于90且大于等于80显示\良好\
fun = \优秀\'mark小于80且大于等于70显示\中等\
ElseIf mark >= 80 Then 'mark小于70且大于等于60显示\及格\ fun = \良好\ElseIf mark >= 70 Then 'mark小于60显示\不及格\
fun = \中等\'要求使用IF语句来实现。
ElseIf mark >= 60 Then Private Function fun(mark As Integer) As String fun = \及格\Else '**********Program**********
fun = \不及格\
End If 10 '********** 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 & \ fOut = FreeFile
Open App.Path & \ 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
x = 10 Private Sub Form_Load()
Show n = 0 Print fun(15) Do While x < y NJIT_VB
x = x * 1.008 End Sub
n = n + 1 Private Sub NJIT_VB()
Loop fun = n
Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \ fOut = FreeFile
Open App.Path & \ 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时，显示\存储连乘的乘积的变量必须为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********** Product = 1 '********** End ********** For i = m To n End Function
Product = Product * i Private Sub Form_Load()
Next i Show
Print fun(4, 2) fun = Product 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 & \ fOut = FreeFile
Open App.Path & \ For i = 1 To 10 Step 2 Line Input #fIn, a(i) 11
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********** flag = True
For i = 2 To m - 1 '********** End **********
If m Mod i = 0 Then flag = False End Function
Next i Private Sub Form_Load()
If flag Then Show
fun = \素数\ Print fun(225)
NJIT_VB Else End Sub
fun = \非素数\
End If 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 & \ fOut = FreeFile
Open App.Path & \ 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时，显示\，'存储总和的变量必须为Sum，'要求使用For语句来实现。 Private Function fun(m As Integer, n As Integer) As Long Dim Sum As Long
'**********Program**********
Sum = 0 '********** End **********
End Function For i = 1 To 100 Private Sub Form_Load()
If i Mod m = 0 Or i Mod n = 0 Then Show
Sum = Sum + i Print fun(15, 11)
End If NJIT_VB
End Sub Next i Private Sub NJIT_VB()
fun = Sum Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \
20题 fOut = FreeFile
Dim s, i As Integer Open App.Path & \
For i = 1 To 10 Step 2 For i = 2 To n - 1 Line Input #fIn, a(i) If n Mod i = 0 Then Line Input #fIn, a(i + 1)
s = s + i Print #fOut, Trim(Str(fun(Val(a(i)), Val(a(i + 1)))))
End If Next
Close #fIn Next Close #fOut
Fun = s 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) ' 例如：若m=9，则应输出：1.168229 12
'要求：函数中用到的中间变量必须声明为Single类型。
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
第1题运行界面
综合界面设计题
一、请按照题目要求设计指定的窗体。（本题有6个项目要完成）建立如图2-12-1所示界面：
1、窗体设置
1）标题内容为“南京工程学院” 2）起始位置设置为屏幕中央 2、在窗体的上方，添加一个文本框控件 1）设置对齐方式为中间对齐 2）设置文本可换行 3）文本内容为“NJIT” 3、在文本框下方，添加一个列表框