资源描述
第1章 概述参考答案第1章 概述二选择题：1.C 2. B. 3.C. 4.C. 5.A 6.C 7.D 8.B 9.B 10.B11.A 12.C 13.D 14.C 15.D16.A 17.C 18.A 19.A 20.D 21.B三填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四编程及上机调试：1 略2 Sub Form_Click( )Label1.Caption = “你单击了窗体” End SubSub Form_DblClick( )Label1.Caption = “你双击了窗体” End Sub第2章 面向对象编程基础二选择题：1.C 2. C. 3.B. 4.B. 5.D 6.D 7.B 8.B 9.C 10.D11.B 12.B 13.B 14.C 15.A16.B 17.B 18.B 19.C 20.B 三填空题：1.窗体，控件2.属性，事件，方法3.command2_click4.picture5.中部，代码四编程及上机调试：1Private Sub Command1_Click() Form1.WindowState = 2End SubPrivate Sub Command2_Click() Form1.WindowState = 0End SubPrivate Sub Command3_Click() Form1.WindowState = 1End Sub2Private Sub Command1_Click() Form1.Picture = LoadPicture(d:pictureflower.wmf) Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_DblClick() Form1.Picture = LoadPicture() Command1.Visible = True Command2.Visible = TrueEnd Sub第3章 常用标准控件二选择题：1.C 2. B 3.C. 4.D 5.B 6.B 7.A 8.C 9.B 10.C11.C 12.A 13.C 14.B 15.D16.D 17.C 18.A 19.D 20.A 21.B三编程及上机调试：1.Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = End Sub2. Private Sub Command1_Click()Text2.Text = List1.ListCountEnd SubPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章 VB语言基础二选择题：1.A 2. D 3.D. 4.A 5.A 6.A 7.C 8.D 9.C 10.B11.A 12.D 13.C 14.A 15.A16.C 17.D 18.A 19.B 20.D 21.C 22.A 23.B 24.C 25.C三编程及上机调试：1Private Sub Form_Load() Dim x As Integer, s As String, d As Integer Randomize x = Int(Rnd * 9000 + 1000) s = Trim(CStr(x) d = Val(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1) Show Print 产生的数；; x; 倒序数; dEnd Sub2Private Sub Form_KeyPress(KeyAscii As Integer) Print 输入字符:; Chr(KeyAscii), ASCII码为:; KeyAsciiEnd SubPrivate Sub Form_DblClick() ClsEnd Sub3Private Sub Form_Click() MsgBox 在这里显示提示 & vbCrLf & 提示信息, 2 + 16, 请确认End Sub或Private Sub Form_Click()MsgBox 在这里显示提示 + Chr(13) + 提示信息, vbAbortRetryIgnore _+ vbCritical, 请确认End Sub第5章 程序控制结构二单选题1.D 2. C 3.C. 4.D. 5.B 6.C 7.A 8.A 9.D 10.C11.C 12.C 13.B 14.B 四编程及上机调试1. Private Sub Form_Click() Dim x As Integer, y As Integer x = InputBox(请输入一个数值) If x 20 Then y = x 2 + 3 * x + 2 ElseIf x = 10 Then y = Sqr(3 * x) - 2 ElseIf x 0 Then y = 1 / x + Abs(x) End If Print x=; x, y=; yEnd Sub（2）Select Case实现：Private Sub Form_Click() Dim x As Integer, y As Integer x = InputBox(请输入一个数值) Select Case x Case Is 20 y = x 2 + 3 * x + 2 Case Is =10 y = Sqr(3 * x) - 2 Case Is 0 y = 1 / x + Abs(x) End SelectPrint x=; x, y=; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i; k = k + 1 If k Mod 2 = 0 Then Print End If Next iEnd Sub3Private Sub Command1_Click() p = 60: r = 0.014 Do p = p * (1 + r) n = n + 1 Loop Until p = 70 Print n; 年后世界人口达到; p; 亿End Sub4Private Sub Command1_Click() Dim s As Single, x As Integer, t As Single, n As Integer x = Val(InputBox(请输入x的值, , 2) s = 1 n = 1 m = 1 Do n = n + 1 m = -m t = m * n / x (n - 1) If Abs(t) Max Then Max = a(i, j) k = i p = j End If Next jNext iPrint 最大的数为第 & k & 行，第 & p & 列的数： & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer 在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() 生成数组按钮 Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 10) 一位的随机数 Picture1.Print a(i, j); 输出元素 Next j Picture1.Print Next iEnd SubPrivate Sub cmdcol_Click() 求列和按钮 Dim colsum As Integer txtcol.Text = For j = 1 To 5 列变量先循环 colsum = 0 For i = 1 To 4 colsum = colsum + a(i, j) Next i txtcol.Text = txtcol.Text & Str(colsum) Next jEnd SubPrivate Sub cmdrow_Click() 求行和按钮 Dim rowsum As Integer txtrow.Text = For i = 1 To 4 行变量先循环 rowsum = 0 For j = 1 To 5 rowsum = rowsum + a(i, j) Next j txtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLf Next iEnd SubPrivate Sub cmdclear_Click() 清除按钮 Picture1.Cls txtcol.Text = txtrow.Text = End SubPrivate Sub cmdexit_Click() 结束按钮 EndEnd Sub4. Option Base 1Private Sub Form_Click() Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox(第一维上界) Do While Not IsNumeric(x) x = Int(InputBox(第一维上界) Loop y = InputBox(第二维上界) Do While Not IsNumeric(x) y = Int(InputBox(第二维上界) Loop ReDim a(x, y) Print 原数组元素为： For i = 1 To x For j = 1 To y a(i, j) = Int(90 * Rnd) + 10 Print a(i, j); Next j Print Next i Print 转置后数组元素为： For i = 1 To y For j = 1 To x Print a(j, i); Next j Print Next iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10 For j = 1 To 10 If i = j Or i + j = 11 Then a(i, j) = 0 Else a(i, j) = 1 End If Print a(i, j); Next j PrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integer j = 1 For i = 3 To 21 Step 2 a(j) = i Print a(j); j = j + 1 Next i Print n = InputBox(请输入一个数) For i = 1 To 10 If n = a(i) Then For j = i To 10 a(j) = a(j + 1) k = k + 1 Next j End If Next i For i = 1 To 9 Print a(i); Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As Variant, k As Integer, i As Integer, j As IntegerDim b As Variantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 对数组a的元素排序 k = i For j = i + 1 To 10 If a(k) a(j) Then k = j Next j If k i Then 数组b的元素随数组a的元素一起变动 t = a(i) a(i) = a(k) a(k) = t t = b(i) b(i) = b(k) b(k) = t End IfNext iPrint 按名字的排列顺序为：For i = 1 To 10 If Len(b(i) = 2 Then b(i) = 0 & b(i) 补上数组b中长度为的编号前的0 Print 第 & i & 名的号码为： & b(i) & ，成绩为： & a(i)Next iEnd Sub第7章 过程二、单选题1.C 2. D 3.C 4.D 5. B6.A 7. B 8.B 9.C 10.D11.C 12.D 13.B 14.B 15.C16.A 17.B 18.B 三、填空题152 5124 11 8 3531 3 5四.编程及上机调试:1. Private Sub Command1_Click() Dim n As Integer For n = 100 To 1600 Step 500 Print n=; n; 时的近似值是：; pi(n) Next nEnd SubPrivate Function pi(x As Integer) As Single Dim s As Single, k As Integer, m As Integer s = 0 k = 1 m = 1 Do s = s + m / k m = -m k = k + 2 Loop While k = x pi = 4 * sEnd FunctionPrivate Sub Command2_Click() EndEnd Sub2. Private Sub Command1_Click() Dim x As Integer, i As Integer x = Val(Text1) For i = 1 To x If prime(i) And prime(x - i) Then Label2 = Str(x) & 是 & Str(i) & 和 & Str(x - i) & 两个素数之和 Exit Sub End If Next iEnd SubPrivate Function prime(x As Integer) As Boolean For i = 2 To Int(Sqr(x) If x Mod i = 0 Then prime = False Exit Function End If Next i prime = TrueEnd FunctionPrivate Sub Command2_Click() EndEnd Sub3. Option ExplicitOption Base 1Dim a(10) As IntegerPrivate Sub Command1_Click() Randomize Dim i As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Text1 = Text1 + Str(a(i) Next i Call sort(a) For i = 1 To 10 Text2 = Text2 + Str(a(i) Next iEnd SubPrivate Sub sort(a() As Integer) Dim k As Integer, i As Integer, j As Integer, t As Integer k = UBound(a) For i = 1 To k - 1 For j = i + 1 To k If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next iEnd SubPublic Function max(a() As Integer) As Integer max = a(1) For i = 2 To UBound(a) If max a(i) Then max = a(i) End If Next iEnd Function窗体Form1代码Private Sub Command1_Click() Dim i As Integer Randomize For i = 1 To UBound(a) a(i) = Int(Rnd * 90) + 11 Text1 = Text1 & Str(a(i) Next iEnd SubPrivate Sub Command2_Click() Form1.Hide Form2.ShowEnd SubPrivate Sub Command3_Click() Text2 = max(a)End SubPrivate Sub Command4_Click() EndEnd Sub窗体Form2代码Private Sub Command1_Click() Call sort(a) For i = 1 To UBound(a) Text1 = Text1 & Str(a(i) Next iEnd SubPrivate Sub Command2_Click() Form2.Hide Form1.ShowEnd Sub第8章 程序调试二上机调试题1. Option ExplicitPrivate Sub Form_Click() Dim a() As Single, i As Integer Dim y As Single i = 1 Do ReDim a(i) 改为ReDim Preserve A(I) a(i) = 1 / fib(i) If a(i) = 0.0001 Then Exit Do 改为a(i) 1 For i = 1 To Len(s) sum = sum + Val(Mid(s, i, 1) Next i Text1.Text = Text1.Text & - & Str(sum) s = Str(sum) 改为s = CStr(sum) LoopEnd Sub第9章 数据文件一、单选题1B2C3A4B5C6B7C8B9 10A11. 12.A 13. 14. 15.A 16.B二、编程及上机调试1Private Sub Form_Load() Open d:mytext2.txt For Output As #1End SubPrivate Sub Text1_keyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Trim(Text1) = 0000 Then Close #1 End End If Write #1, Text1 Text1.Text = End IfEnd Sub2Option ExplicitPrivate Type Student name As String * 10 age As IntegerEnd TypePrivate Sub Command1_Click() Dim Stu As Student Open d:mytext2.txt For Random As #1 Len = Len(Stu) Stu.name = WangYing Stu.age = 20 Put #1, , Stu Close #1 Open d:mytext2.txt For Random As #1 Len = Len(Stu) Get #1, , Stu Print 姓名：, Stu.name Print 年龄：, Stu.age Close #1End Sub第10章 其它控件二、选择题1B2B3B4C56A,C7A8 9 1011. 12.B 13. 三、填空题1菜单编辑器2下拉式菜单 弹出式3 顶4 PopupMenu5 多文档窗体6 MDIChild7 Private Sub HScroll1_Change()text1 = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()text1 = HScroll1.ValueEnd Sub8Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Form1.BackColor = vbRed Case 2 Form1.BackColor = vbGreen Case 3 Form1.BackColor = vbBlue End SelectEnd Sub四、编程及上机调试1Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, _X As Single, Y As Single) If Button = 1 Then Picture1.PSet (X, Y) StatusBar1.Panels(1) = X= & X StatusBar1.Panels.Item(2) = Y= & Y End IfEnd Sub2Private Sub Command1_Click() CommonDialog1.FileName = CommonDialog1.InitDir = D: CommonDialog1.Filter = Word Files|*.doc|文本文件|*.Txt 设置过滤器 CommonDialog1.DialogTitle = 打开文件 设置打开对话框的标题 CommonDialog1.Action = 1 创建打开对话框 If CommonDialog1.FileName = Then 判断文件名是否为空 MsgBox 没有选择文件, 37, 检查 若为空，则显示信息 Else Open CommonDialog1.FileName For Input As #1 打开选定的文件 Do While Not EOF(1) Line Input #1, a$ 读文件的一行 Text1 = Text1 & a$ & vbCrLf 输出所读的内容 Loop End IfEnd SubPrivate Sub Command2_Click() CommonDialog1.Flags = 3 列出打印机和屏幕字体 CommonDialog1.Action = 4 打开字体对话框 Text1.FontName = CommonDialog1.FontName 改变文本框的字体 Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderlineEnd SubPrivate Sub Command3_Click() EndEnd Sub11章 略19
展开阅读全文