1、同步练习 1二、选择题0105 CADAB0610 ACDAB1115 CBDBB同步练习 2二、选择题0105 ABDCA0610 CACBC1115 DADAD1620 BDBBB三、填空题1 可视2 LEFT、TOP、WIDTH、HEIGHT3 按字母顺序4 查看代码5 工具、编辑器6 FORM 窗体、FONT7 MULTILINE8 在运行时设计是无效的9 工程、工程属性、通用、FORM1.SHOW10TABINDEX 、0同步练习 3二、选择题0105 BCADB0610 ADBBC1115 DBCBA1620 BAABB三、填空题1 整型、长整型、单精度型、双精度型2 SIN(30
2、*3.14/180)+SQR(X+EXP(3)/ABS(X-Y)-LOG(3*X)3 164、今天是：3-194 FALSE5 -4、3、-3、3、-4、46 CDEF7 (X MOD 10)*10+X108 (3520)*20=20( 35 20 )* 20 = 209 X MOD 3=0 OR X MOD 5=01027.6、8.2、8、1、100、397、TRUE、FALSE同步练习 4一、选择题0105 DBCAD0610 CBBAB1115 D25BAC1620 CBACB2125 DAABC二、填空题1 正确性、有穷性、可行性、有 0 个或多个输入、有 1 个或多个输出2 1 2
3、33 X=74 X k Theny = y sEnd Sub4 百元买百鸡。假定小鸡每只 5 角，公鸡每只 2 元，母鸡每只 3 元，编程求解购鸡方案。(采用穷举法)假设母鸡、公鸡、小鸡各为 x、y 、z ，列出方程为：x+y+z=1003x+2y+0.5z = 100Private Sub Form_Click()Dim x%, y%, z%Print “母鸡“, “ 公鸡“, “小鸡“For x = 0 To 33For y = 0 To 50z = 100 - x - yIf 3 * x + 2 * y + 0.5 * z = 100 ThenPrint x, y, zEnd If Ne
4、xt yNext xEnd Sub5 给定三角形的 3 条边的边长，计算三角形的面积。编写程序，首选判断的3 条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1 时结束程序。Private Sub Form_Click()Dim a%, b%, c%, s!, p!Do Until a = -1 Or b = -1 Or c = -1a = Val(InputBox(“a=“)b = Val(InputBox(“b=“)c = Val(InputBox(“c=“)If a + b c And a + c b And b + c a Thenp = (a +
5、 b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print “s=“; sEnd IfLoopEnd Sub6 编程打印如下图所示的数字金字塔。Private Sub Form_Click()Dim i%, j%For i = 1 To 8Print Tab(9 - i);For j = 1 To 2 * i - 1Print Trim(Str(i);Next jPrintNext iEnd Sub7 勾股定理中 3 个数的关系是： a*a+b*b=c*c。编写程序，输出 30 以内满足上述关系的整数组合，例如 3、4、5 就是一个整数组合。
6、Private Sub Form_Click()Dim i%, j%, k%For i = 1 To 30For j = 1 To 30For k = 1 To 30If i 2 + j 2 = k 2 ThenPrint i, j, kEnd IfNext kNext jNext iEnd Sub8 如果一个三位数 3 个数字的立方和等于该数本身，称为水仙花数。例如153 就是一个水仙花数：13+53+33=153 。编写程序，显示所有三位的水仙花数。Private Sub Form_Click()Dim x%, a%, b%, c%For x = 100 To 999a = x 100b
7、= (x Mod 100) 10c = x Mod 10If a 3 + b 3 + c 3 = x ThenPrint xEnd IfNext xEnd Sub9 税务部门征收所得税，规定如下：（1）收入 200 元以内，免征；（2）收入在 200400 元内，超过 200 元的部分纳税 3%；（3）收入超过 400 元的部分，纳税 4%；（4）当收入达 5000 元或超过时，将 4%改为 5%。编程实现上述操作。Private Sub Form_Click()Dim x%, y!x = Val(InputBox(“请输入收入额：“)Select Case xCase Is = 5000y
8、= (x - 400) * 0.05End SelectPrint “y=“; yEnd Sub10编写一程序根据上网时间计算上网费用，计算方法如下：50 元 （=60 小时）同时为了鼓励多上网，每月收费最多不超过 200 元。Private Sub Form_Click()Dim t!, s!t = Val(InputBox(“请输入上网小时数“)Select Case tCase Is 200 Then s = 200Case Is = 60s = 4 * tIf s 200 Then s = 200End SelectPrint “上网费用为“; s; “元。“End Sub11编写一个
9、程序，当输入月份时，输出季节的名称。例如，当输入月份为12、1 和 2 时，输出“ 冬季 ”；当输入月份为 3、4、 5 时，输出“春季”；当输入月份为 6、7、8 时，输出“ 夏季 ”；当输入月份为 9、 10、11 时，输出“秋季”；当输入其他数字时，输出“ 输入错误，请重新输入！” 。Private Sub Form_Click()Dim m%m = Val(InputBox(“请输入月份：“)Select Case mCase 12, 1, 2Print “冬季“Case 3, 4, 5Print “春季“Case 6, 7, 8Print “夏季“Case 9, 10, 11Prin
10、t “秋季“Case ElsePrint “输入错误，请重新输入！“End SelectEnd Sub12分别利用 If 语句、Select Case 语句，设计计算下列分段函数的程序。2x-1 （x0）Private Sub Form_Click()Dim x!, f!x = Val(InputBox(“请输入 x 的值：“)Select Case xCase Is 0f = 7 * x - 5End SelectPrint fEnd Sub同步练习 5一、选择题0105 DCACD0610 DBCDC1115 BADAD二、填空题1 NAME、INDEX2 PRESERVE3 VARIAN
11、T4 N(2)=2N(3)=35 1 2 3 1 4 16 1 2 3 2 4 67 MAX、MAX=ARR1(I)三、编程题1 从键盘上输入 10 整数，并放入一个一维数组中，然后将其前 5 个元素与后5 个元素对换，即第 1 个元素与第 10 个元素互换，第 2 个元素与第 9 个元素互换，第 5 个元素与第 6 个元素互换。输出数组为原来各元素的值和对换后各元素的值。Private Sub Form_Click()Dim a(1 To 10)For i = 1 To 10a(i) = Val(InputBox(“请输入第 “ If i Mod 5 = 0 Then PrintNext i
12、For i = 1 To 5temp = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tempNext iPrint “对换后各元素的值“For i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext iEnd Sub2 设有如下两组数据。编写一个程序，把两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即 2+79，8+27，25+80 ，并把相应的结果放入第三个数组中，最后输出第三个数组的值。A 2 8 7 6 4 28 70 25B 79 27 32 41 57 66 78 80Privat
13、e Sub Form_Click()Dim a, b, c(7)a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)For i = 0 To 7c(i) = a(i) + b(i)Next iFor i = 0 To 7Print c(i);Next iEnd Sub3 有一个 nm 的矩阵，其各元素的值由随机函数生成（范围为 50150） 。编写程序，找出其中最大的元素所在的行和列，并输出其值及行号和列号。Option Base 1Private Sub Form_Click()Dim ma
14、x%, row%, col%Dim a() As Integern = Val(InputBox(“请输入矩阵的行：“)m = Val(InputBox(“请输入矩阵的列：“)ReDim a(n, m)For i = 1 To nFor j = 1 To ma(i, j) = Int(101 * Rnd) + 50Print a(i, j),If j = m Then PrintNext jNext imax = a(1, 1): row = 1: col = 1For i = 1 To nFor j = 1 To mIf a(i, j) max Thenmax = a(i, j)row =
15、icol = jEnd IfNext jNext iPrint “最大元素是：“; maxPrint “在第“ If i Mod 10 = 0 Then Printk = Int(a(i) / 10)b(k) = b(k) + 1Next iPrintFor i = 1 To 9Print (i * 10) If i Mod 5 = 0 Then Print 每行打印 5 个元素Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(p) a(j) Then p = jNext jt = a(i): a(i) = a(p): a(p) = t 交换数据
16、Next iPrint “排序后数据:“For i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext iEnd Sub冒泡法降序Private Sub Form_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = Val(InputBox(“输入 A(“ If i Mod 5 = 0 Then Print 每行打印 5 个元素Next iFor i = 1 To 9For j = 1 To 10 - iIf a(j) a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext j
