资源描述
参考答案:
一、单项选择题
1-10 AABDBBADDC 11-20 BABADBDBDB 21-30 BDCDCCCBBD
31-40 DDCDBBBADC 41-50 BDBDDBBCAB 51-60 ADBBBBCDCD
61-70 BBBCBDBDBD
二、判断题(本大题共10小题每小题1分,共10分.对的以1作标记,错的以0作标记。)
1-10 1000011000
三、程序题
(1)程序填空(3分)
①A mod B(或者:A-(AB)*B) ② R=0 (或者:Not R<>0) ③ A
(2)程序设计(7分)
Public Sub Sort(ByRef A() As Single)
Dim I as Integer, J as Integer, N as integer, M as Integer
Dim T as Single
N=Ubound(A)
For I=0 to N-1
Min=A(I):M=I
For J=i+1 to N
If A(J)<Min then Min=A(J):M=J
Next J
T=A(I):A(I)=Min:A(M)=T
Next I
End Sub
展开阅读全文