第5次习题 数组和自定义类型 一、选择题 1 D 11 2 A 12 3 A 13 B 3 B 14 C 4 B 15 C 5 C 16 B 6 A 17 D 7 A 18 D 8 D 19 C 9 A 20 C 10 B 21 C 22 D 7 0 A 8 10 二、填空
1 2 3 4 5 6 7
三、改错题
1 2
第6次习题 过程 一、选择
4 2 16 1 2 3 ； 7 8 9 2 0 4 ； 4 0 6 b(i*j) num ； i+1 ； a(j)=temp Dim arr(10) 错，改为：Dim arr( ) For i=1 to 10 ‘循环3 错，改为：For i=1 to 9 1 A
2 B 3 A 4 D 5 D 6 B 7 C 8 D 9 C 二、填空
6
1 2 3 4 5 6 7
三、改错题
3 8 2 12 10 0 33 ch temp true 2 4 6 8 5 4 3 2 1 8 9 10 11 12 13 14 Call swap(a) , n=n-1 10 0 11 6 100 120 70 10 20 1 2 3 4 static n x>b Temp< >ch Max=a(1); a(k)>max;max=a(k) 四、编程题 1、Dim i%
Private Sub Command1_Click() Dim a As Long
Text1 = CStr(fun(a)) End Sub
Private Function fun(sum As Long) sum = 0
For i = 1 To 100
If i Mod 7 <> 0 Then sum = sum + i Next i fun = sum End Function 2、
Option Explicit
Dim b(4) As Integer, i%
Private Sub Command1_Click() Dim min% For i = 0 To 4
b(i) = Val(Text1(i)) Next i
min = findmin(b) Print min
7
End Sub
Private Function findmin(a() As Integer) Dim min% min = a(1)
For i = 0 To UBound(a)
If a(i) < min Then min = a(i) Next i
findmin = min End Function
第7次习题 用户界面设计 一、选择 1 B 11 A 2 A 12 B 3 C 13 A 4 A 14 A 5 D 15 C 6 D 16 C 7 A 17 D 8 C 18 C 9 C 10 A 二、填空题 1 2 3 Opt1(i).caption Button ; down ; label1.catption 100 ; line1.x1 或 line1.x2； Image1.left 500; Not Label1.visible 或者： IIf(Label1.Visible = True, False, True) 或者：IIf(Label1.Visible = false, True, False) 或者： IIf(Label1.Visible = -1, 0, -1); Timer1.Enabled = True 4
第8次习题 数据文件 一、选择
1 C
2 B 3 D 4 A 5 D 6 C 7 A 8 D 9 C 10 B 8
二、填空题
1 Output ; #1 2 EOF(1); Close #1 ; text1.text或text1 3 Input ; ch ; len(mystr) 4 For input ; as #2 ; not eof(2) 5 Op1_Click ; *3 ; Caption 6 CD1.FileName ; ch$
第9次习题 图形操作
选择题 1 2 3 (1)MouseMove B D B 填空题 (2) True
9
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB实验指导书课后习题答案2016版(2)在线全文阅读。
相关推荐：