下列程序段的执行结果是()。 Dim x As Integer x = 76 Select Case x Case Is >= 60 Form1.Print "及格" Case Is > 75 Form1.Print "良好" Case Is >= 90 Form1.Print "优秀" Case Else Form1.Print "不及格" End Select
相似题目
-
下列程序段的执行结果是()。 X=5:Y=5:Z=6 WriteLine("E({0})", X+Y*Z)
-
以下程序段的运行结果是( )。Function abc(n As Integer) As Integerabc = n * 2 + 1End FunctionPrivate Sub Command1_Click()Dim x As Integerx = abc(3) * abc(4)Print xEnd Sub
-
执行下列程序后,输出的结果是: Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1) End Sub
-
下列程序执行中后,变量x的值为( ) Dim a,b,c,d As Single Dim x As Single a=100 b=20 c=1000 If b>a Then d=a:a=b:b=d End if If b>c Then x=b ElseIf a>c Then x=c Else x=a End If
-
下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s
-
下列程序段的执行结果为________。Dim M(10), N(10)i= 4For j = 1 To 7M(j) = jN(i) = 2 * i + jNext jPrint N(i); M(i)
-
Dim x As Single, y As SinglePrivate Sub Command1_Click()x = x + 1y = y + 1Call test2End SubPrivate Sub test2()Dim x As Singlex = x + 20y = y + 20Print x, yEnd Sub以上程序的执行结果是( )( )
-
下列程序的执行结果是 _ ________ __ Dim a(5) As String Dim b As Integer Dim I As Integer For I = 0 To 5 a(I) = I + 1 Print a(I); Next I
-
下列程序段的运行结果是( )。Dim A As Integer , B As IntegerA = 15B = 4Print 4 + A B
-
下列程序段的执行结果为______。Dim M(10), N(10)I=3For T = 1 To 5M(T) = TN(I) = 2 * I + TNext
-
设 int x=0,y=-1;则执行下列程序段的输出结果为();
-
设有如下程序。要使程序的输出结果n的值为5,请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do设有如下程序。要使程序的输出结果n的值为5,请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do x=x+3 n=n+1 Loop Until x=______ MsgBox"n="&n
-
下列程序段的执行结果为______。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 Then A(M,
-
下列程序段的执行结果为()。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 Then A(M, N)=
-
下列程序段的执行结果为______ 。Dim A(4)N= 3A(1) =1For K=0 To N-1For L=1 To K+1 X=K+2 -L A(X
-
下列程序执行后,变量X的值为()。 Dim a,b,C,d As Single Dim X As Single f1=10 b=30 c=400 If b>fl Then d=fl:fl=b:b=d End If If b>C Then X=b Else If fl>c Then X=c Else X=a End If
-
下列程序执行后,变量x的值为()。Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 50
-
执行以下语句后显示结果为()Dim x As Integer x=1If x Then Print x Else Print x-1
-
下面程序段的执行结果是()。 Dim M(10) For i=1 To 10 M(i)=11-i Next i X=6 Print M(2+M(X))
-
单击命令按钮时,下列程序的执行结果是()。 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 FirProc (x As Integer,y As Integer,z As Integer) FirProc
-
执行下面程序,第一行输出结果是 (11) ,第二行输出结果是 (12) 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x*2+1 If x<10 Then Call Subl(x) End If x=x*2+1 Pri
-
下面程序段的执行结果是()。 Dim A(5) As Interger For i=1 To 5 A(i)=i*i Next i Print A(i-1)
-
下列程序的执行结果为()。 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
-
下面段的功能是()Dim X As New FileSystemObject For Each Mydri in X.Drives Debug.Print Mydri.DriveLetter Next Mydri
推荐题目
- 为什么分组交换是数据通信的较好的方式?
- 对于生存而言,安全需求超过温饱等需求。()
- 孕妇坐时要()椅中,后背笔直靠椅背,股和膝关节成直角,大腿成水平位。
- 为女患者行导尿术操作时,不符合无菌操作原则的是()
- 基金流水状态查询只要输入下列哪项就可进行查询()。
- 下列肺癌中除哪一种外,皆不适宜手术()
- GHT-1型试块属于()
- 《中华人民共和国企业所得税法》是为了使中国境内企业和其他取得收入的组织缴纳企业所得税制定的法律。由中华人民共和国第十届全国人民代表大会第五次会议于()通过。
- 77、接待计划是地陪()的主要依据。
- 【单选题】某患者,男,47岁,泥工。左腕部肿痛、活动时疼痛加重1天,无明显外伤史。查体:左前臂中、下段桡背侧轻度肿胀,压痛明显,局部皮肤升高,握拳时出现捻发音。X线及实验室检查无异常,本病的最可能诊断为()