样品在薄层色谱上展开，10分钟时有Rf值，则20分钟的展开结果是（）
第1题：
下面子过程语句说明合法的是( )。
A．Function f1(By Valn%)
B．Sub f1(n%)As Integer
C．Function f1%(f1%)
D．Sub f1(ByValn%())
第2题：
样品在TLC上展开，10 min时有一Rf值，而20 min时的展开结果是 ( )
A.Rf值加倍
B.Rf值不变
C.样品移行距离加倍
D.样品移行距离增加, 但小于2倍
E.样品移行距离增加, 但大于2倍
第3题：
A.Sub fib(ByRef i%())
B.Sub fib(j%) As Integer
C.Functionf%(f%)
D.Function f1!(ByValn%)
第4题：
在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )
A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End Sub
B．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End Sub
C．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End Sub
D．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub
第5题：
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.
Private Sub Commandl. Click( )
For I=1 To 10
R = Int (Rnd * 76 + 11)
Print R;
If【 】Then Print
Next I
End Sub
第6题：
（24）Function过程与Sub过程的最主要区别是 A.Function过程一定要有形参，而Sub过程可以没有形参B.Function 过程的终端语句是End Function，而Sub过程的终端语句是End Sub C.Function过程时用于计算函数值的，而Sub过程时用于改变属性值的D.Function过程有返回函数值，而Sub过程没有返回值
第7题：
A、Sub f1(ByVal n%())
B、 Sub f1(%)As integer
C、 Function f1%(f1%)
D、 Function f1(ByVal n%)
第8题：
以下叙述中正确的是（ ）。
A．一个 Sub 过程至少要一个 Exit Sub 语句
B．一个 Sub 过程必须有一个 End Sub 语句
C．可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程
D．调用一个 Function 过程可以获得多个返回值
第9题：
下列叙述中，正确的是（ ）。
A.Sub过程无返回值，不能定义返回值类型
B.Sub过程有返回值，返回值类型只能是符号常量
C.Sub过程有返回值，返回值类型可在调用过程时动态决定
D.Sub过程有返回值，返回值类型可由定义时的As子句声明
第10题：
【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。
【程序】
SET TAIK OFF
CLEAR
INPUT“M＝”TO M
STORE 0 TO S1，S2
FOR I=1 TO M
(8)
DO SUB1
DO SUB2
ENDFOR
? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))
SET TALK ON
PROCEDURE SUB1
(9)
FOR R＝1 TO A
K＝K+R
ENDFOR
(10)
RETURN
PROCEDURE SUB2
(11)
FOR P＝1 TO A
T=T*P
ENDFOR
(12)
RETURN
(8)
A．INPUT“A＝”TO A
B．INPUT“I=”TO I
C．INPUT“R=”TO STR(R)
D．INPUT“K＝”TOK