1、VB前七章课后习题参考答案第一章一、 二、CDDCB ADABC三、1. 可视2. 对象 事件3. 代码 控件 4. Proj1.vbp5. Frm1.frm6. 编译 可执行第二章一、 二、BDACC BADCA CDBBB CBBBA三、1. String2. Long 43. xxx4. 1455. 66. 37. False8. (x mod 10)*10+x109. Int(Rnd*90)+1010. a*b mod c11. log(x)+sin(300)12. const PI as single =3.141592613. 日期14. Int(i) +115. & Alt+Y1
2、6. Enabled17. Maxlength18. Text1.setfocus19. Multiline20. Visible21. Alignment22. Autosize第三章一、 二、ADDCB ABABA三、1. If xy then x=x+y : y=x-y : x=x-y2. 同类型的值或表达式3. 0或14. True5. 06. Enabled四、（见作业3参考答案1、2、3和作业4参考答案1）1.Private Sub Form_Click()Dim x, y As Singlex = Val(InputBox(输入x的值, 输入)If x 3 Then y = x
3、+ 3ElseIf x = 1 Then y = x 2ElseIf x 0 Then y = Sqr(x)Else y = 0End IfPrint y的值是：; yEnd Sub2.Private Sub Command1_Click()Text1.Visible = FalsePrint Tab(20); 欢迎进入End SubPrivate Sub Form_Load()Text1.PasswordChar = *Command1.Caption = 进入Command1.Enabled = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii
4、 As Integer)If KeyAscii = 13 Then If Text1.Text = abc Then Command1.Enabled = True Else MsgBox 输入错误, , 提示 End IfEnd IfEnd Sub3.Private Sub Command1_Click()If Command1.Caption = 显示 Then Print Spc(10); 欢迎使用Visual Basic! Command1.Caption = 清除Else Cls Command1.Caption = 显示End IfEnd SubPrivate Sub Comman
5、d2_Click()EndEnd SubPrivate Sub Form_Load()Command1.Caption = 显示Command2.Caption = 退出End Sub4.Dim N As IntegerPrivate Sub Command1_Click()Dim dif As Integerdif = Abs(Val(Text1.Text) - N)Print NSelect Case dif Case 0 ms = 你猜对了！ Case 1 To 3 ms = * Case 4 To 10 ms = * Case 11 To 50 ms = * Case 51 To 10
6、0 ms = * Case 101 To 200 ms = * Case 201 To 500 ms = * Case Else ms = *End SelectMsgBox msEnd SubPrivate Sub Form_Load()RandomizeN = Int(900 * Rnd) + 100End Sub第四章一、 二、CCDBB ADB三、1. For i=0 to 9 : b(i)=i : next i2. Dim 数组名( ) as 数据类型3. 84. Additem5. True6. List1.clear7. 文本框 列表框8. 下拉组合框 简单组合框 下拉列表框四、
7、1. 0 52. 4 （输入数据依次为：3，1，0）3. 2 4 7 11 164. 1 4 9 16 255.WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW6.2 3 43 4 57. 8 （最大公约数）8. 李子 苹果 橘子 葡萄 柚子 香蕉五、1.q*is=s+p*i/qnext i2.r=0r=m mod n3.j+i-16-(i-1) 或 7-iprint4.Int(rnd*90)+10i+1 to 30a(i)a(j)a(i) mod 205.a(i)=mid(str1,i,1)p=ja(i)=a(p)command2.enabled=true6.1 to
8、 2*i-1command2.enabled=truecommand2.enabled=false7.list1.listcountlist1.removeitem ii=i+1六、（见作业5参考答案1、2、3，作业6参考答案1、2，作业7参考答案1）1.Private Sub Form_Click()Dim i, j As IntegerFor i = 1 To 9 For j = 1 To i Print Tab(7 * j - 6); i & * & j & = & i * j;Next j, iEnd Sub2.Private Sub Form_Click()Dim n, i, fm
9、As Integer, x, fz, s As Singlefz = 1: fm = 1: s = 0x = Val(InputBox(请输入x的值：, 输入)n = Val(InputBox(请输入n的值：, 输入)For i = 1 To n fz = fz * x fm = fm * (i + 1) s = s + fz / fmNext iPrint 结果是：; sEnd Sub3.Private Sub Form_Click()Dim n As Integer, m As Longm = 1: n = 1While m 0 And a * 2 + b * 1 + (60 - a -
10、b) / 2 = 100 Then Print a; b; 60 - a - bNext b, aEnd Sub6.Private Sub Form_Click()Dim mark(1 To 20) As IntegerDim aver As Single, n As Integer, i As Integeravcer = 0For i = 1 To 20 mark(i) = InputBox(输入第 & i & 位同学的成绩) aver = aver + mark(i)Next iaver = aver / 20n = 0For i = 1 To 20 If mark(i) aver Th
11、en n = n + 1Next iPrint 平均分是： & aver & ，高于平均分的人数是： & n & 个。End Sub第五章一、 二、CAAC三、1. 62. 按值传递3. 按地址传递4. Public x as single5. Static x as integer6. b() as long7. Form2.y8. 按地址传递四、1、(m as integer) as integerfun=0fun=1x=int(rnd*100+1)2、30503、Isp=truem mod i=0(2) 下一行：For i=4 to 100 step 2p1 and p2Isp(i)4、
12、1 65 265、12(2)=1 1 0 064(8)=1 0 0进制转换6、3126497、10105858六、（见作业10参考答案1、2，作业11参考答案1、2）1.Sub zxgbs(a, b As Integer)Dim m As IntegerIf a b Then m = a Else m = bDo While True If m Mod a = 0 And m Mod b = 0 Then Exit Do m = m + 1LoopPrint a & 和 & b & 的最小公倍数是： & mEnd SubPrivate Sub Form_Click()Dim a, b As I
13、ntegera = Val(InputBox(请输入第一个数)b = Val(InputBox(请输入第二个数)zxgbs a, bEnd Sub2.Function ss(i As Integer) As IntegerDim j As IntegerFor j = 2 To Sqr(i) If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then ss = 1 Else ss = 0End FunctionPrivate Sub Form_Click()Dim i As Integer, n As Integern = 0For i = 100 T
14、o 1000 If ss(i) = 1 Then Print i; n = n + 1 If n Mod 10 = 0 Then Print End IfNext iEnd Sub3.Function ave(a() As Double, n As Integer)For i = 1 To n s = s + a(i)Next iave = s / nEnd FunctionPrivate Sub Form_Click()Dim a() As Double, s As Double, n As Integern = Val(InputBox(请输入数据个数)ReDim a(n)For i =
15、1 To n a(i) = Val(InputBox(请输入第 & i & 个数)Next iPrint 平均值是： & ave(a, n)End Sub4.Sub nx(a() As Single, n As Integer)Dim i As Integer, t As SingleFor i = 1 To n / 2 t = a(i): a(i) = a(n + 1 - i): a(n + 1 - i) = tNext iEnd SubPrivate Sub Form_Click()Dim a() As Single, n As Integern = Val(InputBox(请输入数组元
16、素个数)ReDim a(n)For i = 1 To n a(i) = Val(InputBox(请输入第 & i & 个数)Next iPrint 逆序前：;For i = 1 To n Print a(i);Next inx a, nPrintPrint 逆序后：;For i = 1 To n Print a(i);Next iEnd Sub第六章一、 二、BBACB CAACA CCBAB BCC三、1. Scroll和Change2. Value3. Change4. 定时器失效5. Timer6. 655357. Circle (ScaleWidth/2,ScaleHeigth/2)
17、,8008. LoadPicture9. AutoSize Stretch False False10. 单击（选中） 属性11. 形状（外观） 矩形12. LoadPicture(C:WindowsCloud.bmp)13. 图片框 其他控件14. 缇 ScaleMode15. 画点16. 颜色 起点 终点 纵横比四、1、y= 6y= 142、以(1000,800)为圆心，500为半径的红色实心圆3、1000个随机（位置、大小、颜色）的空心圆4、奇数次，画黄色边框黑色填充的矩形；偶数次，画黄色边框无填充矩形五、1、Timer1.Enabled=Truex3600(x mod 3600)60x
18、=x+12、Label1.leftLabel1.left= -Label1.width3、Combo1.ListiIndexShape1.BorderStyleCombo2.AddItem Str(i)4、Call picFalsen=n+1LoadPicture(“C:pic1.jpg”)LoadPicture(fn)六、1.Private Sub Form_Click()Dim x1 As Single, y1 As Single, x2 As Single, y2 As Singlex1 = Val(InputBox(请输入第一个点的横坐标, 输入)y1 = Val(InputBox(请
19、输入第一个点的纵坐标, 输入)x2 = Val(InputBox(请输入第二个点的横坐标, 输入)y2 = Val(InputBox(请输入第二个点的纵坐标, 输入)Picture1.ScaleMode = 3Picture1.Line (x1, y1)-(x2, y2), , BEnd Sub2.Private Sub Form_Click()ScaleMode = 6DrawWidth = 2FillStyle = 0FillColor = vbBlueIf ScaleWidth ScaleHeight Then r = ScaleHeight Else r = ScaleWidthr =
20、 r / 3: X1 = ScaleWidth / 2: Y1 = ScaleHeight / 2Form1.Circle (X1, Y1), r, vbYellowEnd Sub3.Private Sub Form_Load()List1.AddItem 缇List1.AddItem 磅List1.AddItem 像素List1.AddItem 字符List1.AddItem 英寸List1.AddItem 毫米List1.AddItem 厘米ShowScaleMode = 1X1 = Form1.ScaleWidth / 2: Y1 = Form1.ScaleHeight / 2Circl
21、e (X1, Y1), 50End SubPrivate Sub List1_Click()ScaleMode = List1.ListIndex + 1X1 = Form1.ScaleWidth / 2: Y1 = Form1.ScaleHeight / 2Circle (X1, Y1), 50End Sub4.Private Sub Form_Load()Label1.Caption = 好好学习Label1.Left = Width / 2 - Label1.Width / 2Label1.Alignment = 2Label1.AutoSize = TrueLabel2.Caption
22、 = 推出速度控制：HScroll1.Min = 1HScroll1.Max = 1000HScroll1.SmallChange = 10HScroll1.LargeChange = 100HScroll1.Value = 500Timer1.Interval = 500End SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer()Label
23、1.FontSize = Label1.FontSize + 2Label1.Left = Width / 2 - Label1.Width / 2If Label1.FontSize = 72 Then Timer1.Enabled = FalseEnd Sub第七章一、DCABA ACDDC二、1. 窗口 快捷2. Click3. -（减号）4. &5. 顺序文件 随机文件 二进制文件6. Filelen()7. Close #18. Eof()9. Line Input10. Open C:test.txt for input as #1三、1Private Sub Form_Click
24、()Open C:a.txt For Output As #1For i = 1 To 26Print #1, Chr(Asc(A) + i - 1);Next iClose #1End Sub2Private Sub Form_Click()Open C:student.dat For Input As #1Open D:student.bak For Output As #2Do While Not EOF(1) Line Input #1, c Print #2, cLoopClose #1, #2End Sub3Private Sub Form_Click()Open D:student.dat For Output As #1n = Val(InputBox(请输入学生个数)For i = 1 To n xm = InputBox(请输入姓名) csny = InputBox(请输入出生年月) wy = Val(InputBox(请输入外语成绩) jsj = Val(InputBox(请输入计算机成绩) Print #1, xm, csny, wy, jsjNext iClose #1End Sub
