[18]90000000 [19]a(i) & \次\[20]Exit Do
[21]Mid(S1,n+Len(S2)) [22]DeleStr(x,y) [23]For Append [24]Print #1,s_ [25]Close 三、
1、Private sub Form_load() Timer1.Interval = 100 End sub
Private Sub Timer1_Timer() Label1.left=label1.left+40 End Sub
Private Sub Form_Click() Timer1.Enabled = False End Sub
2、Function jc(n%) as integer Dim i as integer,t as integer,s as integer T=1 s=1 For I = 1 to n S=s*i Next i Jc =s End function
Private sub command1_click()
Dim c as integer,n as integer,m as integer N= inputbox(“请输入正整数N：”) M= inputbox(“请输入正整数M：”) If n msgbox (“数据出错！”) else C=jc(n)/(jc(m)*jc(n-m)) 36 Print n & “,” & m “的组合数为：” & c End if End sub 样题四答案 一、 1-5、CCDBC 6-10、BABCC 11-15、DCADD 16-20、CADAC 21-25、CABCD 26-30、CDBCC 二、 [1]-1 [2]随机文件 [3]12334 [4]False [5]10 220 [6]10 120 [7]Exit Do_ [8]Mid(S1,n+Len(S2)) [9]DeleStr(x,y) [10]强制声明变量 [11]n1=i\\100 [12]n=n+1 [13]Additem [14]q=s mod 10 [15]x mod I = 0 [16]False_ [17]step 2 [18]prime(n-k) [19]Array [20]10 [20]10 [21]End If [22]Input [23]a(I,j) [24]a(I,4) [25]4 三、 37 1、Sub swap(a() as integer) Dim i%,n%,t% For I = 1 to n/2 T=a(i) A(i)=a(n-i+1) A(n-i+1)=t Next i End sub 2、Private sub command1_click() Dim a%,I%,n%,s as long,t as long A=inputbox(“请输入a:”) N=inputbox(“请输入n:”) For I = 1 to n T=t & a S=s+val(t) Next i Print s End sub 样题五答案 一、 1-5、ACCDA 6-10、CADBC 16-20、CBDCB 21-25、DBABB 二、 [1]2 [2]ccccccc [3]8 10 [4]4 [5]12 [6]100 to 999 [7](x-100*a)\\10 [8]x=a^3+b^3+c^3 11-15、CACBB 26-30、ABBAD 38 [9]End if [10]val(inputbox [11]< [12]Nu=x [13]Nu [14]Nmin [15]UBound [16]Nmin=b(i) [17]ProcMin=Nmin [18]a() [19]int(rnd(31))+50 [20]n-i [21]ia(j+1) [22]Form_click() [23]x [24]y=cos(x) [25]>3.1415926 三、 1、Private Sub Form_click() Dim a(10) As String, b(10) As Single Dim I As Integer, avg As Single, max As Single, first As String For I = 1 To 10 a(I) = InputBox(\请输入第\名运动员的姓名：\b(I) = InputBox(\请输入第\名运动员的成绩：\ Print \第\号选手\的成绩为：\Next I first = a(1) max = b(1) Print For I = 2 To 10 If b(I) > max Then max = b(I) first = a(I) End If Next I Print \成绩最好的运动员是\，成绩为：\Print 39 For I = 1 To 10 s = s + b(I) Next I avg = s / 10 Print \所有运动员的平均成绩为：\Print For I = 1 To 10 If b(I) < avg Then Print a(I) & \运动员的成绩低于平均成绩，他的成绩为:\End If Next I End Sub 2、Private Sub Command1_Click() Dim I as integer,j as integer For I = 2 to 1000 For j = 2 to i-1 If I mod j = 0 then exit for Next j If j = I then list1.additem i Next i End sub Private Sub Command2_Click() Dim n as single,I as integer N =val(inputbox(“请输入一个数正整数：”)) If int(n)<>n or n<=0 then msgbox=(“你输入的不是正整数！”) N =val(inputbox(“请输入一个数正整数：”)) End if For I = 2 to n-1 If n mod I = 0 then exit for Next i If I = n then Print n & “是素数。” Else Print n & “不是素数。” End if End sub 40