Question

急！一些VB的题，麻烦大家帮我解答（填空题）

1.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load()
List1.AddItem "357"
List1.AddItem "246"
List1.AddItem "123"
List1.AddItem "456"
Text1.Text = ""
End Sub
Private Sub List1_DblClick()
a = List1.Text
Print a + Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中的"456"，则输出结果为 ___ 。

2. 语句 a = Array(10, 20, 30): Print a(2) 执行结果在窗体上显示___________。
3. 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对窗体的 __________ 属性进行设置。
4. 命令按钮的默认属性是_____________。
5. 在运行时，为了清除Picture属性内的图片，必须使用 ___________ 方法。
6. 指定文件号为1，按读操作的方式打开A:\Myfile.txt，则需要使用代码 ________ 。
7. 若VB的执行程序在 C:\VB 文件夹内，App.Path 可返回_____________。
8. 表达式CHR(ASC("A"))的值为_____________ 。

9. 下面程序段实现的功能是：将二维数组中的数据以如图所示的形式在窗体上输出，请在空白处填入正确的内容。

Dim a$(1 To 5, 1 To 5)
For i = 1 To 5
Print ___(1)___(20 - 3 * i);
For j = 1 To ___(2)___
a(i, j) = Chr(Int(Rnd * 26 + 65))
Print a(i, j); Spc(2);
Next
Print
Next

1.与数学式cos(x)(sin(x)+1)对应的Visual Basic表达式是____________。
2. 为了使一个Image控件能自动缩放装入的图片，应设置该控件的____________ 属性为True。
3. 当焦点进入文本框Text1时，要自动选定文本框开始的5个字符，则需要通过代码 Text1.SelStart = ______ 和 Text1.SelLength = 5来实现。

4. 下面程序段实现的是：将二维数组每一行的元素之和输出。请在空白处填入正确的内容。
Dim a%(1 To 5, 1 To 5),sum%
……
For i = 1 To 5
____(1)____
For j = 1 To 5
sum = ____(2)____
Next
Print sum
Next

5. 控件的 _________ 属性决定控件被拖动时显示的图标。
6. VB中，若要设定每个数组默认的下界固定为1，其声明语句是________。

7. 阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 2
Print F(1) + F(2)
End Sub
运行上面的程序，单击命令按钮，输出结果为 。

8. 如果在代码中设置Command1.Value = True，则激活该按钮的_____________事件。
9. 为了使文件列表框File1和目录列表框Dir1之间能产生同步效果,必须在______________事件过程中加入语句File1.path = Dir1.path 。

Answer 1

//////////////1///////////
456789
/////////////////2///////////
30
///////3/////////////////
font
///////////4//////////
caption
/////////5////////////
cls
/////////6////////////
open "A:\Myfile.txt" for input as #1
//////////7////////////
C:\VB
//////8////////////
A
//////9/////////
图呢