单项选择题

在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Textl，然后编写如下程序：
Private Sub Command1_Click( )
Dima(5)，b(5)
Forj：1 T04
s(j)=3j
b(j)=a(j)3
Next j
Textl.Text=b(j\2)
End Sub
程序运行后，单击命令按钮，在文本框中显示

A．25
B．18
C．36
D．35

<上一题目录下一题>

热门试题

单项选择题

下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt=”abcdef， Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim TempStr As String，strLen As Integer tempStr=”” strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1) i=i+1 Loop Pat=tempStr End Function

A．abcdef
B．aPDecd
C．fedcba
D．defabc

单项选择题

单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，a) End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function

A．20
B．22
C．28
D．30

相关试题