|
(11)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base l
Private Sub Colilinand1_Click()
Dim a(10)As Integer
FOr i=l TO 10
a(i)=i
Next
call Swap( 【13】 )
FOr I=l T0 10
Print a(i)；
Next
End Sub
Sub Swap(b()As Integer)
n= 【14】
For i=l TO n／2
t=b(i)
b(i)=b(n)
b(n)=t
【15】
Next
End Sub
上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
答案：【13】a
【14】10。
【15】n=n-1
评析：Option Base语句，在模块级别中使用，用来声明数组下标的起始值(缺省值为0)。子过程利用语句加以调用，使子过程成为一个独立的语句，其形式为：子过程名[参数列表]或Call子过程名[参数列表]。题目要求将数组中的10个数逆序存放，也就是首尾两两交换，循环次数应为5次，在交换了a(1)与a(10)，应将n的值减1，再将a(2)与a(9)进行交换，以此类推。
(35)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labe11和 Command1，然后编写如下两个事件过程：
Private Sub Commandl_Click()
strText=InputBox("请输入")
Text1．Text=strText
End Sub
Private Sub Text1_Change()
Labe11．Caption=Right(Trim(Text1．Text，)，3)
End Sub
程序运行后，如果在对话框中输入abcdef，则在标签中显示的内容是_________。
A)空B)abcdefC)abcD)def
答案：D
评析：Trim函数返回Variant(String)类型，其中包含指定字符串的拷贝，但不包含前导和尾随空白。Right(字符串，n)：返回"字符串"的后n个字符。这里的"字符串"可以是字符串常量、字符串变量、字符串函数或字符串连接表达式。本题中输入的是abcdef，返回后3个字符就是def。 首页 1 2 尾页
相关资料
| 
