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

来源：百度知道 编辑：UC知道 时间：2024/06/14 20:51:41
(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)在窗体上画一个通用对话框

1、B
2、C
3、FED
4、B
5、Executable Files
6、B
7、A
8、D
9、题目有错。代码如下

Private Sub Command1_Click()
Dim a As String
a = "123456789"
For i = 1 To 5
Print Space(6 - i); Mid(a, 6 - i, 2 * i - 1)
Next i
End Sub
结果：
? 5
456
34567
2345678
123456789

1.B
2.C
3.FEDCBA
4.B
5. All Files(*.*)
Text Files(*.txt)
Executable Files(*.exe)
6.B
7.A
8.C
9.A="123456789"

(1) 函数String(n，"str")的功能是（B、返回由n个字符组成的字符串)
(2)为了清除窗体上的一个控件，下列正确的操作是(C、选择（单击）要清除的控件，然后按Del键）
(3) Text1 中显示的是 AFBECD。
(4)以下说法正确的是 B)。
(5)All Files(*.*)
(6)以下叙述错误的是（B、在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用)
(7)以下叙述中错误的是（A、语句“ Dim a, b As Integer ”声明了两个整型变量)
(8)以下叙述中错误的是（D、随机文件中各记录的长度是随机的）
(9)说明1： Dim As String 中应加上a,即Dim a As String
说明2：无论a 是什么，也不会出现楼主所写的结果。若把结果改为：
5
4