更多"执行下面的程序段，x的值为【 】。
Private Sub"的相关试题:
[单项选择]有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click（ ） total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End Sub
A. 5
B. 10
C. 12
D. 20
[单项选择]有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total>=10 Then Exit Do End lf Loop While Counter＜=10 End Sub
[填空题]执行下面的程序段，x的值为【 】。
Private Sub Command1_Click（ ）
For i=1 To 9
a=a + i
Next i
x=Val(i)
MsgBox x
End Sub
[填空题]执行下面的程序段，x的值为 【10】 。
Private Sub Command1_Click（ ）
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
[填空题]执行下面的程序段，x的值为 【7】 。
Private Sub Command1_Click（ ）
For i=1 To 9
a=a + i
Next i
x=Val(i)
MsgBox x
End Sub
[单项选择]单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click（ ） Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion
A. abcdef
B. fed
C. fedcba
D. defabc
[单项选择]下列程序段的执行结果为______。 Private Sub Command1_Click（ ） n = 0 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a * a + b * b - c * c Then n=n+l End If Next c Next b Next a Print n End Sub
A. 9
B. 12
C. 10
D. 11
[单项选择]单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click（ ） Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End Sub
A. 错误!请重新输入日期!
B. 江苏
C. 浙江
D. 双休日
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a（ ）As InteSer)
For I=1 to 10/2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click（ ）
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x（ ）
For1=1 to 10
Print x (i)
Next I
End Sub
