更多"执行下面的程序段,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
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a( ) As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click( )
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a( ) As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click( )
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub