[单项选择]设有如下程序： Private Su b Commandl Click（　） Dim sum As Double，X As Double sum=0 n=0 For i=1 To 5 x=n／i n=n+1 sum=sum+X Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是
A. 1+1／2+2／3+3／4+4／5
B. 1+1／2+1／3+1／4+1／5
C. 1／2+2／3+3／4+4／5
D. 1／2+1／3+1／4+1／5

更多"设有如下程序： Private Su b Commandl "的相关试题:

[单项选择]设有如下程序： Private Sub Commandl Click（　） Dimsum As Double,x As D0uble sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click（　）　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t/y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。
A. Dim pict[3,4]As Integer
B. Dim pict(3，4)As Integer
C. Dim pict[3．4]As Integer
D. Dim pict(3：4)As Integer．

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click（　）　　　　Dim a As Single　　　　Dim b As Single　　　　a=2：b=4　　　　Call CS(a，b)　　End Sub　　Sub CS(x As Single，y As Single)　　　　t=X　　　　x=t/y　　　　y=t Mod y　　End Sub　　程序运行后，单击命令按钮，a和b的值分别为
A. 0 0
B. 1 1
C. 0 2
D. 1 2

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　X=X + 1 　　　　y=y + 1 　　　　m=m &"*”：n=n&"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是
A. 1　1　*　#
B. 1　1　*　#
C. 1　1　*　# 　 1　1　*　#　1　2　*　#
D. 1　1　*　# 　 1　1　*　##　　1　2　*　##

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click（　）　　　Dim a As Integer　　　a=2　　　For i=1 To 3　　　　　Print Gad (a)　　　　　Next i　　End Sub　　Function Gad (a As Integer)　　　b=0　　　Static c　　　b=b + 1　　　c= c + 1　　　Gad= a + b + C　　End Function　　运行上面的程序后，单击命令按钮，输出结果为
A. 1 　　2 　　3
B. 2　　3　　4
C. 4　　5　　6
D. 1　　4　　6

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click( ) 　　　　a$="A WORKER IS HERE" 　　　　x=Len(a$) 　　　　For i=1，To x-1 　　　　　　b$=Mid$(a$，i，3) 　　　　　　If b$="WOR" Then S=S+1 　　　　Next 　　　　Print S 　　End Sub 　　单击命令按钮，程序运行结果为( )。
A. const，break，default
B. long，void，using
C. virtual，extern，include
D. try，throw，this

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click( )　　　　a$="A WORKER IS HERE"　　　　x=Len(a$)　　　　For i=1，To x-1　　　　　　b$=Mid$(a$，i，3)　　　　　　If b$="WOR" Then S=S+1　　　　Next　　　　Print S　　End Sub　　单击命令按钮，程序运行结果为
A. 1
B. 2
C. 3
D. 5

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim a AS Integer，b As Integer 　　　　a=15 　　　　b=2 　　　　t N(a，b) 　　End Sub 　　Function N(x As Integer，y As Integer) As Integer 　　　　N=IIf(x)y，x，y) 　　End Function 　　程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 15
D. 8

查看答案

[单项选择]下列程序的执行结果为　　Private Sub Commandl_Click( )　　　　Dim X As Integer，y As Integer　　　　x=12：y=20　　　　Call Value(x，y)　　　　Print X；y　　End Sub　　Private Sub Value(ByVal m As Integer，ByVal n As Integer)　　　　m=m * 2：n=n-5　　　　Print m；n　　End Sub
A. 20　　12 　20　　15
B. 12　　20 　12　　25
C. 24　　15 　12　　20
D. 24　　12 　12　　15

查看答案

我来回答:

提交