Dim arrInt（）as Integer=New Integer（2）{0，1，2}
Dim arrInt（）as Integer=New Integer（2）{}
下面这段代码的运行结果是（）。 Dim MyStringBuilder As New StringBuilder("Hello World!") MyStringBuilder.Replace("!"c, "?"c) Console.WriteLine(MyStringBuilder)
下面这段代码中，变量myInteger的结果是（）。 Dim myString As String="ABCDE" Dim myInteger As Integer myInteger=myString.IndexOf（"D"）
Dim arrInt（）as Integer=New Integer（3）{0，1，2}
以下语句执行后，myDataSet中增加的表的名称是（）。 dim myDataSet as new DataSet（） myDataSet.Tables.Add（）
下面这段代码中，变量myChar的结果是（）。 Dim myString As String = "ABCDE" Dim myChar As Char myChar = myString.Chars(3)
以下语句执行后myTable的名称是（）。 Dim myTable as DataTable myTable=New System.Data.DataTable（）
下面这段代码的运行结果是（）。 Dim MyStringBuilder As New StringBuilder("Hello World!") MyStringBuilder.Remove(5, 7) Console.WriteLine(MyStringBuilder)
以下程序段的运行结果是( )。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 a(x)Static b As Integerb = b + x ^ 2Print bEnd FunctionPrivate Sub Command1_Click()Dim c%c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（ ）。
假设有一个类 Car ，则可以使用 dim c as new car 定义类的对象的语法格式（ ）。
下面程序运行后，点击窗体，变量 x和y的值分别为( )、( ) Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y Print \x=
下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s
下面程序运行结果第一行是 ，最后一行是 。 Private Sub Form_Click() Dim I As Integer, J As Integer, X(4, 3) As Integer For I = 1 To 3 For J = 1 To 2 X(I, J) = I + J Print X(I, J)； Next j Print Next i Print X(I, J) End Sub
下列程序段的运行结果是（ ）。Dim A As Integer , B As IntegerA = 15B = 4Print 4 + A B
下面程序： Function a(x) Static b As Integer b = b + x ^ 2 Print b End Function Private Sub Command1_Click() Dim c% c = a(2) End Sub 单击两次命令按钮，第二次显示的结果是（ ）。
3、下面程序段运行后，z的值是 。 Dim x,y,z As Integer x = 3 : y = -1 Select Case x+y Case 1 z = 80 Case -1 z = 70 Case Else z = 60 End Select
下列程序段的执行结果是（）。 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
下面程序段的执行结果是（）。 Dim M（10) For i=1 To 10 M（i)=11-i Next i X=6 Print M（2+M（X))
执行下面程序，第一行输出结果是 （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
下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click（) Dim x As Long， y As Long，i As Long x=Val（Text1．Text) y=Val（Text2．Text) Text3．Text = Str（【13】 ) End Sub Function fun1（a As
下面程序段的执行结果是（）。 Dim A（5) As Interger For i=1 To 5 A（i)=i*i Next i Print A（i-1)
以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。 Private Sub Command1_Click（)Dim a As Integera=0Sum a, 1, 5, 2Print "sum of 3 = "; aa = 0Call Sum（a, 1, 3, 5, 7, 9)Print "sum of 5 = "; aEnd SubPrivate Sub Sum（x As integ
