vb实验教程答案
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
11.T 12.F 13.T 14.T15.T 16.T 17.T 18.F 19.T 20.T
21.F 22. T
第九章
一、单项选择题
1.D 2.C 3.B 4.A 5.D 6.B 7.A 8.B 9.B 10.C 11.A 12.D
二、1.T 2.T 3.F 4.T 5.F
第十章
一、单项选择题
1.A 2.A 3.C 4.B 5.B 6.D 7.A 8.D 9.C 10.C 11.A 12.B 13.B 14.C 15.A 16.D
Mid(Text1.Text, 3, 1) & Mid(Text1.Text, 2, 1) & Mid(Text1.Text, 1, 1)或 Reverse(Text1.Text)
五、操作题
1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和，其中a和n分别由随机函数产生的1～9之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。
a(i) = InputBox("输入原字符串给数组元素" & "a(" & i & ")")
Next i
For i = 1 To n
List1.AddItem a(i)
Next i
End Sub
-----------------------------------------------------------
Private Sub Command1_Click() '打开写字板
Shell "c:\winnt\system32\write.exe", vbNormalFocus '打开写字板正常程序大小窗口
End Sub
第6章 数组
一、单项选择题
1．B2.B 3.D4.C5.B
6.C7.D 8. D 9. D 10.A
Private Sub Form_Click()
Dim a As Integer, n As Integer, s As Long, sn As Long, i As Integer
Cls
Randomize
a = Int(Rnd * 9 + 1) ' 产生1~9之间的整数
n = Int(Rnd * 9 + 1) ' 产生1~9之间的整数
a(x, y) = 1
End If
Print a(x, y); Spc(2);
Next y
Print
Next x
End Sub
2．产生随机函数二维数组a(1 to 10,1 to 10)赋予0到99之间的整数，求出每行a的最大值并把这些最大数放到一维数组b中并用比较交换法降序排列输出各值。
Option Explicit
二、判断题
1.F 2.T 3.F 4.F 5.T 6.F 7.T
三、操作题
1.参考代码：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim sum As Integer
For i = 2 To 10000
四、填空题
1.字符型2.ReDim3.24.45.二公司6.1234
7.第一次第二次第三次
1 1 1 2 1 3
1 1 1 2 1 3
1 1 1 2 1 3
8.169.310.33
五、操作题：
1．编写程序，建立并输出一个10*10矩阵，该矩阵两条对角线元素为1，其它元素均为0。
Option Base 1
Private Sub Command2_Click()
Dim t As String
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(j) > a(p) Then p = j
Next j
t = a(i): a(i) = a(p): a(p) = t
Next i
11.(F) 12.(F) 13.(T) 14.(F) 15.(F)
四、填空题
1.数学日期时间字符串
2.Str(x)Val(x)Asc(x)
3.Sin(30*3.14/180)
4.0
5.2
6.16
7.Right(x,5)
8.123 123 12 0
9.Mid(S, 6, 4)
10.Int(RndText1.Text* 900) + 100
Private Sub Form_Click()
Dim a%(1 To 10, 1 To 10), b%(1 To 10), i%, j%, max%, t%
For i = 1 To 10
For j = 1 To 10
a(i, j) = Int(Rnd * 99 + 1)
Print Tab(5 * j); a(i, j);
二ຫໍສະໝຸດ Baidu判断题
1.T 2.F 3.F 4.T 5.T 6.F 7.T 8.T
三、填空题
1．Caption,Name,Index,Checked,Enabled,Visible
2．标题－
3．&
4．向下移一个等级
5．PopupMenu
6．MicrosoftWindowsCommonControls6.0ToolBar
Print "a="; a, "n="; n
For i = 1 To n
s = s + a * 10 ^ (i - 1)
sn = sn + s
Print sn ' 输出前i项之和，输出的最后一个数据为所求
Next i
End Sub
2．利用shall函数调用“写完板”程序。界面设计如下图：
Option Explicit
Dim n%, i%, j%, p As Integer
Dim a() As String
---------------------------------------------------------
Private Sub Command1_Click()
ReDim a(n)
For i = 1 To n
16.C 17.B 18.D 19.C 20.B
21.A 22.B 23.B24.C 25.B
26.B 27.A 28.A 29.D 30.A
二、多项选择题
1.BCD 2. ABD3. ABC4.ABC5. BCD
三、判断题
1.（F）2.（T）3.（T）4.（T）5.（T）
6.(F) 7.(F) 8.(F) 9.(F) 10.(T)
For i = 1 To 9
For j = i + 1 To 10
If b(j) > b(i) Then t = b(i): b(i) = b(j): b(j) = t
Next j
Print b(10)
Next i
End Sub
3．输入一系统字符串，并按递减顺序排列。
Option Base 1
Option Explicit
41. D
二、判断题
1.True2.True3.False4.False5.False6.False7.False
第三章
一、单项选择题
1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A
16.C 17.B
二、判断题
1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F
For i = 1 To n
List2.AddItem a(i)
Next i
End Sub
-----------------------------------------------------------
Private Sub Command3_Click()
List1.Clear
List2.Clear
7．Align
8．ImageList
9. vbModel或1
第十一章
一、单项选择题
1.A 2.B 3.C 4.B 5.D 6.B 7.A 8.B 9.C 10.B 11.B 12.C 13.D 14.C 15.C 16.D 17.B 18.D 19.C 20.B
21.C 22.C 23.A 24.D 25.B 26.B 27.A 28.D 29.D 30.B 31.C 32.A 33.D 34.B 35.C
11.A 12.C 13.B 14.D 15.D 16.B 17.C 18.D 19.A 20.B
21.C 22.C 23.A 24.B 25.A 26.A 27.B
二、判断题
1.T 2.F 3.F 4.T 5.F 6.F 7.F 8.T 9.F 10.T
11.F 12.F 13.F 14.T 15.F 16.T 17.F 18.F 19.F 20.T
11.B 12.B 13.B 14.A 15.C 16.A 17.C 18.A 19.C 20.D
二、多选题
1．ABC2. BCD 3. ACD 4.ABD 5. BCD
三、判断题
1. （F） 2. （F） 3. （T） 4. （F） 5. （F）
6. （T） 7. （T） 8. （F） 9. （T） 10. （T）
第一章
答案：
一、单项选择题
1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C
二、判断题
1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T
第二章
一、单项选择题
1. B2. D3. A4. D5. B6.A7. D8. D9. D10. A
End Sub
------------------------------------------------------------
Private Sub Form_Load()
n = Val(InputBox("请输入要排序的字符串的个数", , 0))
End Sub
第七章
一、单项选择题
1.B 2.A 3.D 4.A 5.B 6.B 7.C 8.D 9.B 10.B
11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F .
第四章
一、单项选择题
1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A
21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D
sum = 0
For j = 1 To i / 2
k = i Mod j
If 0 = k Then
sum = sum + j
End If
Next j
If i = sum Then
Print i
End If
Next i
End Sub
2.参考代码：
Private Sub Command1_Click()
Dim n%, i%
n = InputBox("请输入天数：")
x = 1
For i = n - 1 To 1 Step -1
x = (x + 1) * 2
Next
Print x
End Sub
第五章
一、单项选择题：
1.B2.C 3.C4.C5.D
6.B7.A8.D9.D10.D
11. D 12.A 13.D 14.A 15.A
21.T 22.F 23.F 24.F 25.T 26.T 27.F 28.F
第八章
一、单项选择题
1. C 2.B 3.C 4.B 5.B 6.D 7.B 8.C 9.B 10.B 11.D 12.C 13. A 14. B 15.D 16.D 17.D 18.C
二、判断题
1.T 2.F 3.F 4.T 5.F 6.T 7.T8F.9.T 10.F
11. A12. A13. C14. C15. A16. C17. A 18.D 19. A 20. D
21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B
31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A
Next j
Print
Next i
Print "各行最大值为："
For i = 1 To 10
max = a(i, 1)
For j = 1 To 10
If a(i, j) > max Then max = a(i, j)
Next j
b(i) = max
Print b(i)
Next i
Print
Print "对各行最大值降序排列后";
Option Explicit
Private Sub Form_Load()
Show
Dim a(10, 10) As Integer
Dim x As Integer, y As Integer
For x = 1 To 10
For y = 1 To 10
a(x, y) = 0
If x = y Or x + y = 11 Then
21.F 22. T
第九章
一、单项选择题
1.D 2.C 3.B 4.A 5.D 6.B 7.A 8.B 9.B 10.C 11.A 12.D
二、1.T 2.T 3.F 4.T 5.F
第十章
一、单项选择题
1.A 2.A 3.C 4.B 5.B 6.D 7.A 8.D 9.C 10.C 11.A 12.B 13.B 14.C 15.A 16.D
Mid(Text1.Text, 3, 1) & Mid(Text1.Text, 2, 1) & Mid(Text1.Text, 1, 1)或 Reverse(Text1.Text)
五、操作题
1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和，其中a和n分别由随机函数产生的1～9之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。
a(i) = InputBox("输入原字符串给数组元素" & "a(" & i & ")")
Next i
For i = 1 To n
List1.AddItem a(i)
Next i
End Sub
-----------------------------------------------------------
Private Sub Command1_Click() '打开写字板
Shell "c:\winnt\system32\write.exe", vbNormalFocus '打开写字板正常程序大小窗口
End Sub
第6章 数组
一、单项选择题
1．B2.B 3.D4.C5.B
6.C7.D 8. D 9. D 10.A
Private Sub Form_Click()
Dim a As Integer, n As Integer, s As Long, sn As Long, i As Integer
Cls
Randomize
a = Int(Rnd * 9 + 1) ' 产生1~9之间的整数
n = Int(Rnd * 9 + 1) ' 产生1~9之间的整数
a(x, y) = 1
End If
Print a(x, y); Spc(2);
Next y
Next x
End Sub
2．产生随机函数二维数组a(1 to 10,1 to 10)赋予0到99之间的整数，求出每行a的最大值并把这些最大数放到一维数组b中并用比较交换法降序排列输出各值。
Option Explicit
二、判断题
1.F 2.T 3.F 4.F 5.T 6.F 7.T
三、操作题
1.参考代码：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim sum As Integer
For i = 2 To 10000
四、填空题
1.字符型2.ReDim3.24.45.二公司6.1234
7.第一次第二次第三次
1 1 1 2 1 3
1 1 1 2 1 3
1 1 1 2 1 3
8.169.310.33
五、操作题：
1．编写程序，建立并输出一个10*10矩阵，该矩阵两条对角线元素为1，其它元素均为0。
Option Base 1
Private Sub Command2_Click()
Dim t As String
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(j) > a(p) Then p = j
Next j
t = a(i): a(i) = a(p): a(p) = t
Next i
11.(F) 12.(F) 13.(T) 14.(F) 15.(F)
四、填空题
1.数学日期时间字符串
2.Str(x)Val(x)Asc(x)
3.Sin(30*3.14/180)
4.0
5.2
6.16
7.Right(x,5)
8.123 123 12 0
9.Mid(S, 6, 4)
10.Int(RndText1.Text* 900) + 100
Private Sub Form_Click()
Dim a%(1 To 10, 1 To 10), b%(1 To 10), i%, j%, max%, t%
For i = 1 To 10
For j = 1 To 10
a(i, j) = Int(Rnd * 99 + 1)
Print Tab(5 * j); a(i, j);
二ຫໍສະໝຸດ Baidu判断题
1.T 2.F 3.F 4.T 5.T 6.F 7.T 8.T
三、填空题
1．Caption,Name,Index,Checked,Enabled,Visible
2．标题－
3．&
4．向下移一个等级
5．PopupMenu
6．MicrosoftWindowsCommonControls6.0ToolBar
Print "a="; a, "n="; n
For i = 1 To n
s = s + a * 10 ^ (i - 1)
sn = sn + s
Print sn ' 输出前i项之和，输出的最后一个数据为所求
Next i
End Sub
2．利用shall函数调用“写完板”程序。界面设计如下图：
Option Explicit
Dim n%, i%, j%, p As Integer
Dim a() As String
---------------------------------------------------------
Private Sub Command1_Click()
ReDim a(n)
For i = 1 To n
16.C 17.B 18.D 19.C 20.B
21.A 22.B 23.B24.C 25.B
26.B 27.A 28.A 29.D 30.A
二、多项选择题
1.BCD 2. ABD3. ABC4.ABC5. BCD
三、判断题
1.（F）2.（T）3.（T）4.（T）5.（T）
6.(F) 7.(F) 8.(F) 9.(F) 10.(T)
For i = 1 To 9
For j = i + 1 To 10
If b(j) > b(i) Then t = b(i): b(i) = b(j): b(j) = t
Next j
Print b(10)
Next i
End Sub
3．输入一系统字符串，并按递减顺序排列。
Option Base 1
Option Explicit
41. D
二、判断题
1.True2.True3.False4.False5.False6.False7.False
第三章
一、单项选择题
1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A
16.C 17.B
二、判断题
1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F
For i = 1 To n
List2.AddItem a(i)
Next i
End Sub
-----------------------------------------------------------
Private Sub Command3_Click()
List1.Clear
List2.Clear
7．Align
8．ImageList
9. vbModel或1
第十一章
一、单项选择题
1.A 2.B 3.C 4.B 5.D 6.B 7.A 8.B 9.C 10.B 11.B 12.C 13.D 14.C 15.C 16.D 17.B 18.D 19.C 20.B
21.C 22.C 23.A 24.D 25.B 26.B 27.A 28.D 29.D 30.B 31.C 32.A 33.D 34.B 35.C
11.A 12.C 13.B 14.D 15.D 16.B 17.C 18.D 19.A 20.B
21.C 22.C 23.A 24.B 25.A 26.A 27.B
二、判断题
1.T 2.F 3.F 4.T 5.F 6.F 7.F 8.T 9.F 10.T
11.F 12.F 13.F 14.T 15.F 16.T 17.F 18.F 19.F 20.T
11.B 12.B 13.B 14.A 15.C 16.A 17.C 18.A 19.C 20.D
二、多选题
1．ABC2. BCD 3. ACD 4.ABD 5. BCD
三、判断题
1. （F） 2. （F） 3. （T） 4. （F） 5. （F）
6. （T） 7. （T） 8. （F） 9. （T） 10. （T）
第一章
答案：
一、单项选择题
1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C
二、判断题
1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T
第二章
一、单项选择题
1. B2. D3. A4. D5. B6.A7. D8. D9. D10. A
End Sub
------------------------------------------------------------
Private Sub Form_Load()
n = Val(InputBox("请输入要排序的字符串的个数", , 0))
End Sub
第七章
一、单项选择题
1.B 2.A 3.D 4.A 5.B 6.B 7.C 8.D 9.B 10.B
11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F .
第四章
一、单项选择题
1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A
21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D
sum = 0
For j = 1 To i / 2
k = i Mod j
If 0 = k Then
sum = sum + j
End If
Next j
If i = sum Then
Print i
End If
Next i
End Sub
2.参考代码：
Private Sub Command1_Click()
Dim n%, i%
n = InputBox("请输入天数：")
x = 1
For i = n - 1 To 1 Step -1
x = (x + 1) * 2
Next
Print x
End Sub
第五章
一、单项选择题：
1.B2.C 3.C4.C5.D
6.B7.A8.D9.D10.D
11. D 12.A 13.D 14.A 15.A
21.T 22.F 23.F 24.F 25.T 26.T 27.F 28.F
第八章
一、单项选择题
1. C 2.B 3.C 4.B 5.B 6.D 7.B 8.C 9.B 10.B 11.D 12.C 13. A 14. B 15.D 16.D 17.D 18.C
二、判断题
1.T 2.F 3.F 4.T 5.F 6.T 7.T8F.9.T 10.F
11. A12. A13. C14. C15. A16. C17. A 18.D 19. A 20. D
21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B
31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A
Next j
Next i
Print "各行最大值为："
For i = 1 To 10
max = a(i, 1)
For j = 1 To 10
If a(i, j) > max Then max = a(i, j)
Next j
b(i) = max
Print b(i)
Next i
Print "对各行最大值降序排列后";
Option Explicit
Private Sub Form_Load()
Show
Dim a(10, 10) As Integer
Dim x As Integer, y As Integer
For x = 1 To 10
For y = 1 To 10
a(x, y) = 0
If x = y Or x + y = 11 Then