下列程序段错误的是（)。A．Dim a As Integer a=array（1,2,3,4)B．Dim a（),b（) a=array（1,2,3,4): b=

相似题目

• 设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

  A . 4；3；2；1 B . 5；4；3；2 C . 6；5；4；3 D . 7；6；5；4

  查看最佳答案

• 有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

  A . 定义一个数据处理方法 B . 定义一个数据输入方法 C . 定义一个事件过程 D . 定义一个数据类型

  查看最佳答案

• 下面程序段是利用For语句给数组a赋值，使a(1)＝1，a(2)＝3，a(3)＝5，……，a(50)＝99，则划线处的语句应该是()。 Dim a(1 to 50) As Integer For i＝1 To 50 ______Next i

  A . a（i）＝2*i+1 B . a（i）＝2*（i+1） C . a（i）＝i+2 D . a（i）＝2*i-1

  查看最佳答案

• 设程序中有如下数组定义和过程调用语句：Dim a(10) As IntegerCall p(a)如下过程定义中，正确的是______。

  查看最佳答案

• 下列程序执行中后，变量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

  查看最佳答案

• 下列程序段中包括一个错误，出错的原因（ ）。 x = 4 Dim a(x) For m = 4 To 0 Step -1 a(m) = m + 1 Next m

  查看最佳答案

• 下列程序的执行结果是 _ ________ __ 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

  查看最佳答案

• 本程序的功能是产生 10个个位数互不相同的三位随机整数，并存放到与其个位位数相同的数组元素中。例如，368存入到 a(8) 。 Private Sub Form_Click() Dim A(9) As Integer, n As Integer Do While n <= 9 x = Int(Rnd * 900 + 100) If a(k) = 0 Then a(k) = x End If Loop For i = 0 To 9 Print a(i); Next End Sub

  查看最佳答案

• 设有如下语句：Dim a，b As Integerc="VisualBasic"d=7/20/2005以下关于这段代码的叙述中，错误的

  设有如下语句： Dim a，b As Integer c="VisualBasic" d=7/20/2005 以下关于这段代码的叙述中，错误的是()。 A．a被定义为Integer类型变量 B．b被定义为Integer类型变量 C．c中的数据是字符串 D．d中的数据是日期类型

  查看最佳答案

• 下列程序段没有错误的是（)。A．int*p;cin＞＞*p；B．int*s,k;*s=100C．int *s ,k； char *p ,c； s=&amp;k

  下列程序段没有错误的是()。 A．int*p;cin＞＞*p； B．int*s,k;*s=100 C．int *s ,k； char *p ,c； s=&amp;k； p=&amp;c； *p='a'； *s=1； D．int *s,k； char *p,c； s=&amp;k； p=&amp;c； s=p；

  查看最佳答案

• 执行下列程序后，变量a的值为（)Dim i As IntegerDim a As Integera=0For i＝l To 100 Step 2a=a+lN

  执行下列程序后，变量a的值为 () Dim i As Integer Dim a As Integer a=0 For i＝l To 100 Step 2 a=a+l Next i A．1 B．10 C．50 D．100

  查看最佳答案

• 以下程序段运行的结果是 ______。Dim a（-1 To 5)As BooleanDim flag As Booleanflag=FalseDim i A

  以下程序段运行的结果是 ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j A．20 B．7 C．35 D．8

  查看最佳答案

• 以下程序段运行的结果是______。Dim a（-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i

  以下程序段运行的结果是______。Dim a(-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = True For i=-1 To 5 j=j+1 If a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If NextLoopPrint j A．20 B．7 C．35 D．8

  查看最佳答案

• 下列程序执行后，变量x的值为（)。Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 50

  A．A.0 B．B.100 C．C.200 D．D.500

  查看最佳答案

• 11，在程序的空白处填写适当的语句（一个空白处只能填写一条语句)，使程序完成相应的计算。程序计算Sn的值，Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如，a=5，n=4时，则： Sn=5+55+555+5555 Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long，Tn As Long Count=1:Sn

  查看最佳答案

• 下面程序段的执行结果是（）。 Dim A（5) As Interger For i=1 To 5 A（i)=i*i Next i Print A（i-1)

  A．5 B．25 C．0 D．16

  查看最佳答案

• 在某一 VB 程序中有程序代码段：Dim A,B,C As StringA="35"B="53"C=A+B请分析运行该段代码后，C值为（）

  A．"33" B．"55" C．"3553" D．"88"

  查看最佳答案

• 以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。 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

  查看最佳答案

• 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click（) Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=

  查看最佳答案

• 下列程序段运行结束后，消息框中的输出结果是_______。 Dim C As Boolean A=Sqr（3) B=Sqr（2) C=a＞b MsgBox C

  A．-1 B．0 C．False D．True

  查看最佳答案

• 执行下列程序后，变量a的值为（)。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i

  A．1 B．10 C．50 D．100

  查看最佳答案

• 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click（) Dim a As Integer,n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout

  查看最佳答案

• 以下VB程序段：Dim n As Long ，t As IntegerDim a（1 To 9） As Integern ＝ Val（Text1.Text）Do While n ＞ 0t ＝ n Mod 10If t Mod 2 ＝ 0 Then a（t）＝a（t）＋1n ＝ n \10LoopList1.AddItem a（2）若在文本框Text1中输入26862612，则单击命令按钮Command1后，在列表框List1中显示的值为（）

  A．2 B．3 C．4 D．7

  查看最佳答案