vb编程求答案
在下列说法中，正确的是___。(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上
(B) 在列表框中不能进行多项选择
(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列
(D) 复选框的Value属性值为布尔型
6、在Visual Basic中，下列 程序行是符合语法的。
A) X=Y=5 B) A+B=C^3 C) Y=1；Y=Y+1 D) I=10X
26、计算机之所以按人们的意志自动进行工作，最直接的原因是因为采用了
A)二进制数制 B)高速电子元件 C)存储程序控制 D)程序设计语言
5、对建立良好的程序设计风格，下面描述正确的是
A)程序应简单、清晰、可读性好 B)符号名的命名要符合语法
C)充分考虑程序的执行效率 D)程序的注释可有可无
25．设有如下代码，关于它的叙述 是正确的。
Private Type animal
AName As String * 20
AColor As String * 10
End Type
Private Sub Command1_Click()
Dim rec As animal
Open "c:\vbtest.dat" For Random As #1 Len = Len(rec)
rec.AName = "Elephant"
rec.AColor = "Black"
Put #1, , rec
Close #1
End Sub
(A) 记录类型animal不能在窗体中定义，只能在标准模块中定义，所以运行会发生错误
(B) 如果文件 c:\vbtest.dat 不存在，则运行 Open 命令时发生错误
(C) 由于Put命令没有指定记录号，因此每次写文件时都把记录写在文件尾
(D) 语句“Put #1, , rec”的作用是把animal类型的两个数据元素写入文件
11．一个数组中有10个元素，对它进行冒泡排序，元素进行交换的次数最大可能是 次。
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序, 通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call Swap(___[21]___)
For i = 1 To 10
Print a(i);
Next
End Sub
Sub Swap(b() As Integer)
n = ___[22]___
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
___[23]___
Next
End Sub
5．下面这段程序要在窗体显示20个[100，200]间的随机整数，每8个数显示一行，请完成程序。
For i = 1 To 20
___[6]___
Print x;
If ___[7]___
Next i
运行下面这段程序，在文本框Text1和Text2中分别输入一串字符，单击命令按钮时，在Text1中删除掉Text2中的内容。例如Text1中输入“ABCDEFG”，Text2中输入“CD”，则单击Command1时，Text1中显示“ABEFG”。
填空完成程序。
Sub DeleStr(S1$, S2$)
Dim n%
Do
n = InStr(S1, S2)
If n = 0 Then __ exit sub ____
S1 = Left(S1, n - 1) + (S1,len(S1)-n-len(s2)+1)
Loop
End Sub
Private Sub Command1_Click()
Dim x$, y$
x = Text1.Text
y = Text2.Text
Call _ DeleStr(S1$, S2$)_
Text1.Text = x
End Sub
3、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load()
For i=1 To 100
If i Mod 7 =0 Then
【3】
End If
Next i
End Sub
Private Sub Command1_Click()
Sum = 0
For i = 1 To 100
Sum = Sum + i
Next i
【6】
End Sub
