VISUAL BASIC程序设计基础

和，存入变量中 SUM 中。（'注意：请在指定的事件内编写代码。） Dim i As Integer For i = 100 To 200 If ((i Mod 5) = 0) And ((i Mod 3) <> 0) Then Print (CStr(i)) sum = sum + i End If Next
只，怎样用 100 元买 100 只鸡。把结果输出到窗体上。（将答案数存放在变量 N 中）
Dim i, j, k As Integer For i = 1 To 20 '母鸡 For j = 1 To 33 '公鸡 For k = 3 To 100 '小鸡 Then If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n=n+1 End If Next Next Next
3、'题目：(事件)单击窗体。 ' (响应)求 10~20 之间所有素数的乘积并输出在窗体上。将结果存入变量 L 中。
Dim i As Integer Dim j As Integer Dim 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 i
4、应用冒泡法对数组 A 按升序排列 ' ' 起"； ' 2）第二趟对余下的 n-1 个数（最大的数已"沉底"）按上法比较，经 n-2 次两两 基本思想：(将相邻两个数比较，小的调到前头) 1）有 n 个数（存放在数组 a(n)中），第一趟将每相邻两个数比较，小的调到前
头，经 n-1 次两两相邻比较后，最大的数已"沉底"，放在最后一个位置，小数上升"浮
相邻比较后得次大的数； ' 3）依次类推，n 个数共进行 n-1 趟比较，在第 j 趟中要进行 n-j 次两两比较。
Dim i, j, temp As Integer
For i = 1 To n - 1 For j = 1 To n - i If a(j) > a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If Next j Next i 期末模拟题 4： 1、求二维数组中最大元素及其所在的行和列，并将最大值存入变量 Max 中，将最大 值的行位置存入 row 中，列位置存入变量 column 中。 Dim i As Integer, j As Integer max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3 If a(i, j) > a(row, column) Then max = a(i, j) row = i
换位置； ' ' 2）除第 1 个数外，其余 n-1 个数中选最小的数，与第 2 个数交换位置； 3）依次类推，选择了 n-1 次后，这个数列已按升序排列。
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
column = j End If Next j Next i Print "最大元素是"; max Print "在第" & row & "行,"; "第" & column & "列" 2、'题目：编写函数 fun，函数的功能是：计算 n 门课程的平均值，计算结果作为函数 值返回。例如，若有 5 门课程的成绩是：92，76，69，58，88，则函数的值为 76.6。 Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n 3、编写函数 fun 其功能是：根据整型形参 m，计算如下公式的值：y=1/2!＋1/4!＋... ＋1/m! (m 是偶数) Dim y As Double, t As Double t=1 Dim i As Integer
Dim i As Integer s=0 For i = 1 To 10 s = s + 1 / (i ^ 2) Next Print (s)
3、'题目：(事件)单击窗体。 (响应)在窗体上打印数列 2/1,3/2,5/3,8/5,13/8…的前 10 项，并求其和。（注意：请在指定的事件内编写代码。） Dim i, j, k, m 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 5、编写函数 fun 其功能是:能计算从 1 开始到 n 的自然数中偶数的平方的和，n 由键盘 输入， (n 是偶数) Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum 期末模拟题 5： 1、编写函数 fun 其功能是：根据整型形参 m，计算如下公式的值：y=1/2＋1/4＋1/6 ＋...＋1/2m 例如：若 m=9，则应输出：1.414484 Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y
2、 (事件)单击窗体。 (响应)求 3+6+9+12+15+……+300 的和，并将结果输出到窗体 上。将结果存入变量 SUM 中 For i = 3 To 300 Step 3 sum = sum + i Next i Print sum 3、 (事件)单击窗体。(响应)求 100 到 999 之间的所有水仙花数的和，（例如： 153=1^3+5^3+3^3 是水仙花数）并将结果输出到窗体上。将结果存入变量 SUM 中 For x = 100 To 999 i = x \ 100 j = (x - i * 100) \ 10 k = x - i * 100 - j * 10 If x = i ^ 3 + j ^ 3 + k ^ 3 Then sum = sum + x End If Next x Print sum 4、 (事件)单击窗体。(响应)求 100 到 300 之间不能被 3 整除且能被 7 整除的数的乘 积，并将结果输出到窗体上。将结果存入变量 T 中 T=1 For i = 100 To 300 If i Mod 3 <> 0 And i Mod 7 = 0 Then T=T*i End If Next Print T 5、 (事件)单击窗体。(响应)有一组数列,它的生成规则是后一个数是前两个数的乘积除 以 10 的余数,该数列是:1、2、2、4、8、2、6、2……,求这个数列的前 10 个数之和。 并将结果输出到窗体上。将结果存入变量 Sum 中 f1 = 1: f2 = 2
期末模拟题 2： 1、'题目：(事件)单击窗体。 (响应)生成一个一维数组(10 个数组元素依此为：15、 23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和 平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变 Max,Min,Aver 中
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
Next If b = False Then l=l*i End If b = False Next Print Str(l)
4、'题目：(事件)单击窗体。 ' (响应)求 1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100 的值。将结果存入变量 J 中。
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 期末模拟题 3： 1、 (事件)单击窗体。 ' (响应)求 1+2+3+5+8+13+……前 20 项的和，并将结果在窗体上输出。将结果存
Visual Basic 程序设计基础 程序设计参考答案（'注意：请在指定的事件内编写代码。） 期末模拟题 1： 1、'题目：(事件)单击窗体。 ' ' (响应)求 200~300 之间既能被 3 整除又能被 7 整除的数。 并求出所有数之和存入变量 SUM 中（'注意：请在指定的事件内编写代码。）
入变量 SUM 中。 Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i < 3 Then j(i) = i Else
j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum
For i = 2 To m Step 2 t = t * 1# / i y=y+t Next i fun = y 4、编写函数 fun 其功能是:判断一个整数 w 的各位数字平方之和能否被 5 整除 , 可以 被 5 整除则返回 1 , 否则返回 0 Dim k As Integer, s As Integer
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
2、'题目：(事件)单击窗体。 ' ' (响应)已知 S=1+1/4+1/9+1/16+1/25+…+1/100， 结果输出在窗体上（'将结果存入变量 S 中）
s=0 i=2 j=1 For k = 1 To 10 m=j Print (CStr(i)) & "/" & CStr(j) j=i i=i+m s=s+i/j Next
4、'题目：(事件)单击窗体。 ' (响应)写程序解决百钱买百鸡问题：公鸡 3 元 1 只，母鸡 5 元 1 只，小鸡一元 3
2、判断一个数是否是素数。（'注意：部分源程序已经给出，请在指定的事件内编写 代码。） Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i
源自文库
3、应用选择法对数组 A 按升序排列 '基本思想: ' 1）对有 n 个数的序列（存放在数组 a(n)中），从中选出最小的数，与第 1 个数交
s = s + a(i)
Next aver = Int(s / 10) Print (CStr(max)) Print (CStr(min)) Print (CStr(aver))
2、'题目：(事件)双击窗体。 ' (响应)求出 100~200 之间，能被 5 整除，但不能被 3 整除的数。并求所有数之