样题六答案 一、
1- 5: BCCCA 6-10: DBDCB 11-15: CBDAA 16-20: CBADC 21-25: AABAB 26-30: ACDBD 二、
1、(1) 1 2、(2) AAAAAAA 3、(3) 2 4、(4) 12 18 5、(5) 30
6、(6) Function (7) n (8) JieC=n*JieC(n-1) (9) End
7、(10) Len(s)或Len(Text1.text) (11) Mid(s,i,1) (12) c<=”Z” (13) Next i
8、(14) ReDim ia(n) (15) Int(Rnd*(99-10+1))+10 或 Int(Rnd*90)+10 (16) n-1 (17) ia(imin)=t
9、(18) t (19) Sx=Sx+t (20) *t* (21) Loop 10、(22) Form_Clik() (23) X=-3.1415926 (24) y=sin(x) (25) >3.1415926 三、
1、Function Max(a() As Single) As Single Dim iMax%, i% iMax = Lbound(a)
For i = Lbound(a)+1 To Ubound(a) If a(i) > a(iMax) Then iMax = i Next i
Max = a(iMax) End Function
Private Sub Picture1_Click() Dim x(1 To 10) As Single For i = 1 To 10 x(i) = Rnd * 100
Print \Next i Print
Print \最大的数组元素是\End Sub
2、Dim Pi As Double, I As Long, fuhao% fuhao = 1 i = 1
41
Do Until 1 / i < 0.0000001 Pi = Pi + fuhao * 1 / I fuhao = -fuhao i = i + 2 Loop Pi = 4 * Pi Print \ 样题七答案 一、
1-5、BDDBB 6-10、DCBDA 16-20、DBCBB 21-25、BADAA 二、
[1]AAAAA [2]顺序文件 [3]5 [4]9
[5]picture1.picture=loadpicture(“d:\\pic1.jpg”) [6]x=Int(Rnd*101)+100 [7]I mod 8 = 0 then print [8]M [9]1 to 7 [10]M=arr(i) [11]Interval [12]Enabled=True [13]Label1.Caption=Time [14]String [15]Append [16]Not EOF(1) [17]Print #2
[18]求1+2+??+8的和 [19]36
[20](Cos(a+b))^2/(3*x) [21]KeyPress [22]List.List(i) [23]MsgBox =_ [24]End If [25]Additem
11-15、BBBDD 26-30、DCDAD 42
三、
1、Function PF(n%) As Double If n = 1 Then PF = 1 Else
PF = 2 * PF(n - 1) End If End Function
Private Sub Form_Click()
Dim s As Double, I As Integer, x As Integer x = 64 For I = 1 To x s = s + PF(x) Next I Print s End Sub
2、Private Sub Form_Load() List1.Additem “广州大学” List1.Additem “华南师范大学” List1.Additem “星海音乐院” List1.Additem “中山大学” List1.Additem “广东外语外贸大学” List1.Additem “广州中医药大学” List1.Additem “广东药学院” List1.Additem “华南理工大学” List1.Additem “广东工业大学” List1.Additem “广州美术学院” End Sub
Private Sub Command1_Click() Dim I as integer
43
For I = List1.ListCount-1 To 0 Step -1 If List1.Selected(i) Then List2.Additem List1.List(i) List1.RemoveItem i End If Next i End Sub
样题八答案 一、
1-5、ADCAB 6-10、BBBCD 16-20、DACBB 21-25、DAACD 二、 [1]0.5 [2]随机文件 [3]5_ [4]5.6
[5]Picture1.Picture = LoadPicture (“ “) [6]Rnd*101+100 [7]s=s+x
[8]x mod 5 = 0 then print x; [9]Integer [10]0 To 7 [11]k=i [12]False [13]Interval
[14]Label1.Caption = Time [15]Input As #1 [16]#1,aspect [17]Close [18]BASIC
[19](a+b)/(Log(Abs(a))/Log(Exp(1))) [20]9 [21]KeyPress_ [22]False
11-15、CCDDD 26-30、DBDAB 44
[23]n
[24]List1.List(i)
[25]MsgBox (“无此人”) 三、
1、Private Sub Form_Click() Dim i%, min% Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i min = a(1) For i = 2 To 10
If a(i) < min Then min = a(i) Next i Print
Print \最小值：\End Sub
2、Private Sub Form_Load() VScroll1.min = 2 VScroll1.max = 20 Label1.Caption = \Label2.Caption = \
45
End Sub
Private Sub Vscroll1_Change()
Dim s As Double, I%, j%, n%, t As Double t = 1
Text1.Text = VScroll1.Value n = Val(Text1.Text) For I = 1 To n t = 1 For j = 1 To I t = t * j Next j s = s + t Next I
Label1.Caption = \+…+n! = \ End Sub
46