vb 教材答案

vb 教材 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 第一章: 一:选择题 1-5 CCCCA 6-10 CBACA 11 A 二:填空题 1: 视图 工具箱 2: 对象 事件驱动 3: 代码 窗体设计器 4: 属性 方法 事件 5: 对象的特征 6: 一个对象可执行的动作 7: 属性窗口 赋值语句 三:简答题 1:略 2:略 四:编程题 【属性窗口设置】 Caption 这是我的第一个练习 【代码窗口设置】 Private Sub Form_Click() Print '我可以用Visual Basic语言编写程序了～' End Sub 第二章: 一:选择题 1-5: BDDCA 6-10: CBADD 11-15: DDBDB 16-20: DBCDC 21-23: CCD 二:填空题 1: Value 2: 下拉列表框 3: Scroll 4: LargeChange 5: ASCII码 6: Enabled 7: ListCount 8: PopupMenu 9: Alt 10:复选 11:CommonDialog1.ShowColor 或者: ShowColor 12:Flags 13: 1 14:- 15:GFED 第三章 一:选择题 1-5: ADADC 6-10: BCBDB 11-15:BBCBB 16-20:DCADA 21-25:ABCBB 26-30:DBBCB 31-34:BBDD 二:填空题 1: Right(CStr(x),1) & Left(CStr(x),1) 2: x Mod 5=0 Or x Mod 9=0 3: False 4: CDEF 5: s>='A' And s<='Z' Or s>='a' And s<='z' 6: x>=0 And x<100 7: Int(Rnd*(X-2)+3) 8: Sqr(cos(23*3.14/180)/(x^2*Log(y))) 9: -4 -5 -4 10:'请输入圆的半径:' '求圆的面积' 2 11:'圆的半径值必须介于1到10之间，请重输' 48 '求圆的面积' 第四章 一:选择题 1-5: DCDAC 6-10: CCBDC 二:填空题 1: 4.8 20 2: y=11 3: 1～+2～+3～+4～+5～ 4: 9 k (学生我认为该题有错，应把其中的 n 改成 k) 5: 0 n 6: 2 7: x>=0 x>max 8: 5 7 13 12 14 11 9: sum=0 sum+j st & k & '+' 10: 4 11 10 11: i + 1 List1.RemoveItem j 12: Combo1.List(i)=Combo1.Text flag=false Combo1.AddItem Combo1.Text 三:编程题 1: Private Sub Form_Click() Dim x As Single x = Val(InputBox('请输入一个x的值:')) If x <= 0 Then fx = -1 ElseIf x < 1 Then fx = Sqr(x) Else fx = x ^ 3 + 2 End If MsgBox ('运算结果为:' & fx) End Sub 2: Private Sub Form_Click() Dim n As Integer, k As Integer, s As String n = Val(InputBox('请输入一个正整数:')) k =2 s = n & '=' Do If n Mod k = 0 Then s = s & k & '*' n = n \ k Else k = k + 1 End If Loop Until n = k s = s & k Print s End Sub 3: Private Sub Form_Click() Dim s As String, i As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer s = Text1.Text For i = 1 To Len(s) If Mid(s, i, 1) >= '0' And Mid(s, i, 1) <= '9' Then If Val(Mid(s, i, 1)) Mod 2 <> 0 Then a = a + 1 Else b = b + 1 End If ElseIf Mid(s, i, 1) >= 'A' And Mid(s, i, 1) <= 'Z' Then c = c + 1 ElseIf Mid(s, i, 1) >= 'a' And Mid(s, i, 1) <= 'z' Then d = d + 1 Else e = e + 1 End If Next i Print '奇数个数为:'; a Print '偶数个数为:'; b Print '大写字母个数为:'; c Print '小写字母个数为:'; d Print '其他字符个数为:'; e End Sub 4: Private Sub Form_Click() Dim n As Integer, sum As Integer n = Val(InputBox('请输入一个正整数:')) Do Until n = 0 sum = sum + n Mod 10 n = n \ 10 Loop MsgBox ('各位数字之和为:' & sum) End Sub 5: Private Sub Form_Click() Dim n As Long, i As Integer, L As Integer n = Val(InputBox('请输入一个正整数:')) L = Len(CStr(n)) For i = 1 To L / 2 If Mid(CStr(n), i, 1) <> Mid(CStr(n), L, 1) Then Exit For End If L = L - 1 Next i If i > L / 2 Then MsgBox ('该数是回文数。') Else MsgBox ('该数不是回文数。') End If End Sub 6: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer For a = 1 To 30 For b = 1 To 30 For c = 1 To 30 If a ^ 2 + b ^ 2 = c ^ 2 And a < b Then Print a, b, c End If Next c Next b Next a End Sub 第五章 一:单选题 1-5: BCBBD 6-8: DAB 二:编程题 1: Option Base 1 Private Sub Command1_Click() Dim a(15) As Integer, i As Integer, j As Integer Do j = Int(Rnd * 90) + 10 If j Mod 2 <> 0 Then i = i + 1 a(i) = j Label1.Caption = Label1.Caption & Str(a(i)) End If Loop Until i = 15 For i = 1 To 14 For j = i + 1 To 15 If a(i) < a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Label2.Caption = Label2.Caption & Str(a(i)) Next i Label2.Caption = Label2.Caption & Str(a(i)) End Sub 2: Option Base 1 Private Sub Form_Click() Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer, sum As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); sum = sum + a(i) Next i Print Max = a(1) Min = a(1) For i = 2 To 10 If a(i) > Max Then Max = a(i) ElseIf a(i) < Min Then Min = a(i) End If Next i Print '最大数为:'; Max Print '最小数为:'; Min Print '平均值为:'; sum / 10 End Sub 3: Private Sub Form_Click() Dim a(0 To 25) As Integer, idx As Integer, i As Integer, S As String, ch As String * 1 S = InputBox('请输入一个字符串:') Print '输入的字符串为:'; S For i = 1 To Len(S) ch = Mid(S, i, 1) If ch >= 'A' And ch<= 'Z' Then idx = Asc(ch) - Asc('A') a(idx) = a(idx) + 1 ElseIf ch >= 'a' And ch <= 'z' Then idx = Asc(ch) - Asc('a') a(idx) = a(idx) + 1 End If Next i Print '统计结果如下:' For i = 0 To 25 Print Chr(Asc('A') + i); ':'; a(i); '次' Next i End Sub 4: Option Base 1 Private Sub Form_Click() Dim a() As Integer, m As Integer, n As Integer Dim i As Integer, j As Integer, Max As Integer m = Val(InputBox('请输入行数:')) n = Val(InputBox('请输入列数:')) ReDim a(m, n) For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 90) + 10 Print a(i, j); If a(i, j) > Max Then Max = a(i, j) Next j Print Next i Print For i = 1 To m For j = 1 To n If a(i, j) = Max Then Print '最大元素是:'; a(i, j); Print '行号:'; i; Print '列号:'; j End if Next j Next i End Sub 5: Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer, i As Integer, j As Integer Dim sum1 As Integer, sum2 As Integer, sum3 As Integer Print '随机生成数组元素:' For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 9) + 1 Print a(i, j); sum3 = sum3 + a(i, j) If i = 1 Or i = 5 Or j = 1 Or j = 5 Then sum2 = sum2 + a(i, j) End If Next j Print Next i For i = 1 To 5 sum1 = sum1 + a(i, i) + a(i, 6 - i) Next i sum1 = sum1 - a(3, 3) Print '对角线元素之和为:'; sum1 Print '所有靠边元素之和为:'; sum2 Print '所有数组元素之和为:'; sum3 End Sub 6: Option Base 1 Private Sub Form_Click() Dim a() As Integer, b() As Integer, n As Integer, k As Integer, i As Integer, j As Integer n = Val(InputBox('请输入n=', , 9)) + 1 ReDim a(n + 1, n + 1), b(n + 1, n + 1) k = 8 For i = 1 To n For j = 1 To i a(i, 1) = 1 a(i, i) = 1 a(i + 1, j + 1) = a(i, j) + a(i, j + 1) b(i, j) = a(i, j) Print b(i, j); ' '; Next j Print Next i End Sub 第六章: 一:填空题 1: AFBECD 2: -5 5 3: 2 4 6 8 4: 33 5: 5 无输出 6: 1234 10 7: 0 8: 12 10 9: 2 4 6 7 10: 3 54 2 0 5 17 23 二:编程题 1:Private Sub Form_Click() Dim s As String, n As Integer s = InputBox('请输入待转数s=', 'N进制转十进制') n = Val(InputBox('请输入该数的进制n=', 'N进制转十进制')) Print Convert(s, n) End Sub Private Function Convert(ByVal s As String, ByVal n As Integer) As Integer Dim i As Integer, j As Integer For i = Len(s) To 1 Step -1 Convert = Convert + Mid(s, i, 1) * n ^ j j = j + 1 Next i End Function 2:要么由于资质太低，要么题意叙述不清。此题答案，仅供参考。 Private Sub Form_Click() Dim y As Single, n As Integer, t As Single t = 1 / 2 y = t n = 1 Do Until t <= 1E-5 n = n + 1 t = t / (2 * n) y = y + t Loop Print y End Sub 3: Option Base 1 Dim a() As Integer Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(InputBox('请输入数据个数', '工程1', 10)) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 90) + 10 Text1 = Text1 & CStr(a(i)) & ' ' Next i End Sub Private Sub Command2_Click() Dim Max As Integer, Min As Integer, i As Integer, temp As Integer Call Max_Min(Max, Min) For i = 1 To UBound(a) If a(i) = Max Then temp = a(1) a(1) = a(i) a(i) = temp Exit For End If Next i For i = 1 To UBound(a) If a(i) = Min Then temp = a(UBound(a)) a(UBound(a)) = a(i) a(i) = temp Exit For End If Next i For i = 1 To UBound(a) Text2 = Text2 & CStr(a(i)) & ' ' Next i End Sub Private Sub Max_Min(Max As Integer, Min As Integer) Dim i As Integer Max = a(1): Min = a(1) For i = 2 To UBound(a) If a(i) > Max Then Max = a(i) ElseIf a(i) < Min Then Min = a(i) End If Next i End Sub Private Sub Command3_Click() Text1.Text = '' Text2.Text = '' Command1.SetFocus End Sub 4: 设计界面时:要将文本框的MultiLine属性设置成True ScrollBars属性设置成 2 Private Sub Command1_Click() Dim i As Integer For i = 1000 To 9999 If Mid(i, 1, 1) = Mid(i, 4, 1) And prime(i) And prime(exchange(i)) And i < exchange(i) Then Text1 = Text1 & '(' & i & ' ' & exchange(i) & ')' & vbCrLf End If Next i End Sub Private Function prime(n As Integer) As Boolean Dim k As Integer For k = 2 To Sqr(n) If n Mod k = 0 Then Exit Function Next k prime = True End Function Private Function exchange(n As Integer) As Integer Dim t As String * 1, s As String s = CStr(n) t = Mid(s, 2, 1) Mid(s, 2, 1) = Mid(s, 3, 1) Mid(s, 3, 1) = t exchange = s End Function Private Sub Command2_Click() Text1.Text = '' Command1.SetFocus End Sub Private Sub Command3_Click() End End Sub