中
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))
程序设计题
1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是\正数\、\负数或\零\，并根据输入的数用消息框显示\正数\、\负数”或\零\。
3题 1题 Dim i As Integer n = InputBox(\输入一个自然数\If n > 0 Then s = 0 result = \正数\ For i = 1 To 10 ElseIf n < 0 Then s = s + 1 / (i ^ i) result = \负数\Next ElseIf n = 0 Then Print (s) result = \零\ End If MsgBox \输入的数据\为：\ 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中
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、题目：单击窗体。(响应)已知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、题目：(事件)双击窗体。(响应)把一元钞
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 入变量N中 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 6、题目： min = a(i) 单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S End If s = s + a(i)
Next aver = Int(s / 10) Print (CStr(max)) Print (CStr(min)) Print (CStr(aver)) 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
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中。 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 1
Print sum
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、题目：应用选择法对数组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 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) 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语句来实现。 2
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 '********** 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()
Dim i As Integer Loop Dim a(10) As String
fun = n Dim fIn As Integer
Dim fOut As Integer
3
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) 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**********
4
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)
NJIT_VB End If 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
'要求：函数中用到的中间变量必须声明为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
22题 Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y 3）高度为1800，宽度为1700
4）装载的图片为程序所在目录内的“平面图.jpg” 5）不自动调整大小
5、在image右边按从上到下添加两个复选框 1）第一个复选框名称为“复选一”，标题为“彩色”，并被选中 2）第二个复选框名称为“复选二”，标题为“黑白” 6、在窗体右下角添加一个命令按钮 1）名称为“按钮” 2）标题为“继续”
3）在单击事件里添加代码，使得列表框中增加一项，内容为文本框中的内容
综合界面设计题
1．请按照题目要求设计指定的窗体。（本题有6个项目要完成）建立如图2-12-1所示界面：
1、窗体设置
1）标题内容为“南京工程学院” 2）起始位置设置为屏幕中央
2、在窗体的上方，添加一个文本框控件 1）设置对齐方式为中间对齐 2）设置文本可换行
3）文本内容为“NJIT”
3、在文本框下方，添加一个列表框
1）设置其列表内容从上到下分别为：“China”、“Jiangsu”、“Nanjing” 4、在列表框下方，添加一个image控件 1）名称为“图片” 2）边框风格为1
5
第1题运行界面
2．请按照题目要求设计指定的窗体。（本题有5个项目要完成）建立如图2-12-2所示界面：
1、窗体设置
1）名称设置为“Nanjing” 2）标题为“圣火南京路线”
3）窗体背景图片设置为当前程序目录下的“南京.jpg” 4）窗体起始位置为“所有者中心” 2、在窗体上方添加一个标签控件