计算机visual basic程序设计课后答案.doc

同步练习 1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习 2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1． 可视 2． LEFT、TOP、WIDTH、HEIGHT 3． 按字母顺序 4． 查看代码 5． 工具、编辑器 6． FORM 窗体、FONT 7． MULTILINE 8． 在运行时设计是无效的 9． 工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习 3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1． 整型、长整型、单精度型、双精度型 2． SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3． 164、今天是：3-19 4． FALSE 5． -4、3、-3、3、-4、4 6． CDEF 7． (X MOD 10)*10+X\10 8． (35\20)*20=20 ( 35 \ 20 )* 20 = 20 9． X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习 4 一、选择题 01——05 DBCAD 06——10 CBBAB11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1． 正确性、有穷性、可行性、有 0 个或多个输入、有 1 个或多个输出 2． 1 2 3 3． X=7 4． XAMIN 5． 1024 6． 11 7． 12 8． 6、I、”*”; 9． 0、100、I+1 10．2*I、6、”*”; 三、编程题 1． 编程求 n！ 从键盘输入。 ，n Private Sub Form_Click() Dim n%, s%, i% n = Val(InputBox(请输入 n 的值：)) s=1 For i = 1 To n s=s*i Next i Print n; !=; s End Sub 2． 编程求 100 以内的全部质数。 Private Sub Form_Click() Dim i%, k%, n%, y$ For n = 1 To 100 k = Int(Sqr(n)) For i = 2 To k If n Mod i = 0 Then Exit For Next i If i k Then y = y Str(n) End If Next n MsgBox y, , “显示质数 End Sub 3． 编写程序，计算 1+2+…+100 的值。 Private Sub Form_Click() Dim i%, s% s=0 For i = 1 To 100s=s+i Next i Print 1+2+3+…+100=; s End Sub 4． 百元买百鸡。假定小鸡每只 5 角，公鸡每只 2 元，母鸡每只 3 元，编程求解 购鸡方案。(采用穷举法) 假设母鸡、公鸡、小鸡各为 x、y、z，列出方程为： x+y+z=100 3x+2y+0.5z = 100 Private Sub Form_Click() Dim x%, y%, z% Print 母鸡, 公鸡, 小鸡 For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If 3 * x + 2 * y + 0.5 * z = 100 Then Print x, y, z End If Next y Next x End Sub 5． 给定三角形的 3 条边的边长，计算三角形的面积。编写程序，首选判断的 3 条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重 新输入。当输入-1 时结束程序。 Private Sub Form_Click() Dim a%, b%, c%, s!, p! Do Until a = -1 Or b = -1 Or c = -1 a = Val(InputBox(a=)) b = Val(InputBox(b=)) c = Val(InputBox(c=)) If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print s=; s End If Loop End Sub 6． 编程打印如下图所示的数字金字塔。 Private Sub Form_Click() Di