VB 问题 超大分值,有几道VB 题目 能解决的来!急

(1) 函数String(n，"str")的功能是（ ）。
A)把数值型数据转换为字符串
B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串

(2)为了清除窗体上的一个控件，下列正确的操作是( )
A）按回车键
B）按Esc键
C）选择（单击）要清除的控件，然后按Del键
D）选择（单击）要清除的控件，然后按回车键
(3)Public Function Fun(xStr As String)
Dim tStr As String, srtL As Integer
tStr =””
strL=Len(xStr)
i=1
Do While i<=strL/2
tStr=tStr &Mid(xSt,i,1)& Mid (xStr,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，则 Text1 中显示的是 _____
(4)以下说法正确的是 _____ 。
A)任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器
B)只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C)任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器
D)只有当代码窗品为当前活动窗口时，才能找开菜单编辑器

(5)在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_
“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”
CommonDialog1. Filterindex=3
CommonDialog1. Show Open
MsgBox CommonDialog1. FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 _____ 。

(6)以下叙述错误的是
A)一个工程中可以包含多个窗体文件
B)在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用
C) 窗体和标准模块需要分别保存为不同类型的磁盘文件
D) 用 Dim 定义的窗体层变量只能在该窗体中使用
(7)以下叙述中错误的是（）
A)语句“ Dim a, b As Integer ”声明了两个整型变量
B)不能在标准模块中定义 Static 型变量
C)窗体层变量必须先声明，后使用
D)在事件过程或通用过程内定义的变量是局部变量
(8)以下叙述中错误的是（）
A)顺序文件中的数据只能按顺序读写
B)对同一个文件，可以用不同的方式和不同的文件号打开
C)执行 Close 语句，可将文件缓冲区中的数据写到文件中
D)随机文件中各记录的长度是随机的
(9)在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
　　 Private Sub Commandl_C1icK()
　　 Dim As String
　　 a=_____
　　 For i ＝1 To 5
　　 Print Space(6-i)；Mid$3(a，6-i，2*i-1)
　　 Next i
　　 End Sub
　　 程序运行后，单击命令按钮，要求窗体上显示的输出结果为
　　 456
　　 34567
　　 2345678
　　 123456789
　　 请填空。