内容正文:
选修一第四章VB程序设计初级章末习题(一般难度)
一、选择题(本大题共4小题)
1. 有如下VB程序段:
a(1) = 6 : a(2) = 9 : a(3) = 3 : a(4) =7 : a(5) = 8 : a(6) = 1
t = 2 * Int(Rnd * 3) + 1
For i = t To 5
k = i
For j = i + 1 To 6
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i) : a(i) = a(k) : a(k) = temp
End If
Next i
执行该程序段后,a(1)〜a(6)各元素的值不可能的是( )
A. 6,1,3,7,8,9 B. 6,9,1,3,7,8 C. 6,9,3,7,1,8 D. 1,3,6,7,8,9
2. 以下有关软件用途归类不全正确的是()。
A. 声音的编辑处理可以使用Cool edit、Wave edit等
B. 文本的处理可以使用记事本、WPS、PowerPoint等
C. 程序设计可以使用vb、Pascal、C语言等
D. 动画设计可以使用3d max、Flashget等
3. 有如下 VB 程序段:
Dim p As Integer,q As Integer,s As Integer,t As Integer
p=Val(Text1.Text):t=0
For q=p+1To 2*p
s=(p*q) Mod (q-p)
If s=0Then
t=t+1
End If
Next q
Label1.Caption=Str(t)
该程序段运行时,在文本框Textl中输入8,则在标签Labell中显示的内容是( )
A. 3 B. 4 C. 5 D. 6
4. Private Sub Command1_Click( )
n=100:Sum=0:k=1
Do while k<=n
j=1
Do while j<=k
sum=sum+1:j=j+1
Loop
k=k*2
Loop
End sub
该字段运行后,变量sum的值是( )
A. 256 B. 255 C. 128 D. 127
二、非选择题(本大题共11小题)
5. 编写一个VB程序,实现如下功能,在文本框Te