智慧树知到答案VISUAL BASIC 程序设计（海南联盟）最新答案

第三章 单元测试

1、单选题：
表达式7+4 6 * 5/ 8 MOD 9的值是(   )。

选项：
A:7
B:8
C:6
D:5
答案: 【】

2、单选题：

表达式NOT(“ABC” = “ABK”) OR (“abc” = “habc”)的结果为(    )。

选项：
A: “True”
B: 0
C: “False”
D: 1
答案: 【】

3、单选题：
如果想在程序中反复使用一个数据“01/01/2000”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用：(   )

选项：
A:将这个数据声明为字符串型变量，用一个变量标识符表示它。
B:将这个数据声明为日期型常量，用一个常量标识符代表它。
C:将这个数据声明为字符串型常量，用一个常量标识符代表它。
D:将这个数据声明为日期型变量，用一个变量标识符表示它。
答案: 【】

4、单选题：

下列符号中，哪一个是合法的变量名（）。

选项：
A:integer
B:sinx
C:123_a
D:1_1
答案: 【】

5、单选题：

表达式Mid$(“一二三四五六”,3,4)的结果是（）.

选项：
A: “三四”
B:”二三四五”
C: “三四五六”
D:”二三”
答案: 【】

第四章 单元测试

1、单选题：
a=3,b=5,c=IIF(a<b,10,12), 则c=(   )。

选项：
A:12
B:5
C:3
D:10
答案: 【】

2、单选题：

“设有如下程序：Private Sub Form_Click()   a = 1   For i = 1 To 3     Select Case i          Case 1, 3               a = a + 1         Case 2, 4               a = a + 2      End Select  Next i   Print aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ ）。

选项：
A:3
B:6
C:4
D:5
答案: 【】

3、单选题：
“下列程序段中，语句i=i+1执行了（）次。For i=1 to 5    i=i+1Next i

选项：
A:4
B:3
C:5
D:2
答案: 【】

4、单选题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4    a = 1    For j = 1 To 3       a = 2       For k = 1 To 2           a = a + 6        Next k    Next j Next iPrint aEnd Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（   ）。

选项：
A:14
B:17
C:16
D:15
答案: 【】

5、单选题：
设a=”Visual Basic”，下面使b=”Basic”的语句是（  ）。

选项：
A:b=Right(a,5,5)
B:b=Left(a,8,12)
C:b=Left(a,8,5)
D:b=Mid(a,8,5)
答案: 【】

第五章 单元测试

1、单选题：
若有数组说明语句为:Dim a(10),则数组a包含元素的个数是(  ).

选项：
A:8
B:12
C:10
D:11
答案: 【】

2、单选题：
已知有数组声明:Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素,正确的是

选项：
A:a(-1,2)
B: a(0,6)
C:a[-1,2]
D: a(4)
答案: 【】

3、单选题：
在窗体上添加一个命令按钮，编写如下代码：Option  Base 1Private Sub Command1_Click Dim  a(10) As Integer,p(3)　As  Integer k=5 For i=1  To  10          a(i)=i Next i For i=1  To  3        p(i)=a(i*i) Next i For i=1  To 3        k=k+p(i)*2 Next i Print kEnd Sub程序运行后，单击命令按钮，输出结果是

选项：
A:35
B:33
C:28
D:37
答案: 【】

4、单选题：

如下数组声明语句，正确的是

选项：
A:Dim a(3,4)%
B:Dim a(3,4)As Integer
C:Dim a[3,4]As Integer
D:Dim a(n,n) As Integer
答案: 【】

5、单选题：

在窗体中添加一个命令按钮,然后编写如下代码:

Private Sub Command1_Click()

ReDim this(4)

For i = 1 To 4

this(i) = i * 3

Next

ReDim this(6)

For i = 1 To 6

this(i) = this(i) + i

Next

Print this(3);this(6)

End Sub

程序运行后,则窗体上显示的内容为()

选项：
A:3  6
B:12  6
C:8  0
D:10  6
答案: 】

第六章 单元测试

1、单选题：
下面的过程语句声明中正确的是（  ）

选项：
A:Sub f1(ByRef n%) As Integer
B:Function f1(Byval n%)
C:Sub f1(ByVal n%())
D:Function f1%(ByRef f1%)
答案: 【】

2、单选题：
在一个过程中定义的变量，若希望该过程外还能保存过程中局部变量的值，则应使用关键字（）在过程中定义过程级变量。

选项：
A:Public
B:Private
C:Static
D:Dim
答案: 【】

3、单选题：
下面过程运行后显示的结果是（ ） Public Sub F1 (ByRef n%, ByVal m%)     n=n Mod 10     M=m10

End SubSub Command1_Click()  Dim x%, y%  X=12: y=34  Call F1(x,y)  MsgBox(x & “ “ & y)End Sub

选项：
A: 12  3
B: 2  3
C:12  34
D:2  34
答案: 【】

4、单选题：

如下程序的运行结果是（）Sub Command1_Click ( )  MsgBox (p1(3.0, 7))End SubPublic Function p1! (ByVal x!, ByVal n%)  If n=0 Then

p1=1  Else    If n Mod 2=1 Then      p1=x*p1(x, n2)    Else      P1=p1(x, n2) x

End if

End ifEnd Function

选项：
A:18
B:7
C:27
D:14
答案: 【】

5、单选题：
如下程序运行后各变量的值依次为（）Public Sub Proc (ByRef a%())

Static i%

Do

a(i)=a(i)+a(i+1)

I=i+1

Loop While i<2

End Sub

Sub Command1_Click ( )

Dim m%, i%, x%(10)

For i=0 To 4: x(i)=i+1: Next i

For i=1 To 2: Call Proc(x): Next i

For i=0 To 4: Print x(i);: next i

End sub

选项：
A:2  3  4  4  5
B: 3  5  7  4  5
C:3  4  7  5  6
D: 4  5  6  7  8
答案: 【 】

第七章 单元测试

1、单选题：
将数据项“China”添加到列表框List1中成为第二项应使用( )语句。

选项：
A:List1.AddItem “China”,1
B:List1.AddItem “ China ”, 2
C:List1.AddItem 2,“ China ”
D:List1.AddItem 1,“China”
答案: 【】

2、单选题：

引用列表框List1最后一个数据项，应使用(  )语句。

选项：
A:List1.List(List1.ListCount-1）
B:List1.List(List1.ListCount）
C:List1.List(ListCount)
D:List1.List(ListCount-1)
答案: 【】

3、单选题：

执行了下面的程序后，列表框中的数据项有(   )。

Private Sub Form_Click()

For i = 1 to 6

List1.AddItem i

Next i

For i = 1 to 3

List1.RemoveItem i

Next i

End Sub

选项：
A:1，5，6
B:2，4， 6
C:1，3，5

D:4，5，6
答案: 【

】

4、单选题：

在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是 (   ).

选项：
A:

Private Sub HScroll1_ Dblclick ()

Text1.Text = HScroll1.Value

End Sub

B:

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value

End Sub

C:

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Caption

End Sub

D:

Private Sub HScroll1_Click()

Text1.Text = HScroll1.Value

End Sub

答案: 【

】

5、单选题：

设置计时器的时间间隔可以通过(   )属性来实现。

选项：
A:Text
B:InterVal
C:Value
D:Max
答案: 【】

第八章 单元测试

1、单选题：
下面关于顺序文件的说法中正确的是（ ）

选项：
A:每条记录的长度必须相同
B:数据只能以ASCII码形式存放在文件中，可通过文本编辑软件显示
C:文件的组织结构复杂
D:可通过编程对文件中的某条记录进行修改
答案: 【】

2、单选题：
如果从数据文件 INPUT.DAT 中读取数据时,以下打开文件方式中, 正确的是（）

选项：
A:OPEN INPUT.DAT FOR INPUT AS #1
B:OPEN “I”, #1 INPUT.DAT
C:OPEN “INPUT.DAT” FOR INPUT AS #1
D:OPEN INPUT.DAT FOR OUTPUT AS #1
答案: 【】

3、单选题：
执行语句Open ” Tel.dat”  For Random As #1 Len = 50后，对文件Tel.dat的数据可以进行的操作是（）

选项：
A:只能写，不能读
B:不能读, 不能写
C:既可以读，也可以写
D:只能读，不能写
答案: 【】

4、单选题：

要从磁盘上读入一个文件名为”c:t1.txt”的顺序文件，以下正确的是（）

选项：
A:Open “c:t1.txt” For input As #2
B:Open c:t1.txt For input As #2
C:F=”c:t1.txt” Open F For Append As #2
D:F=”c:t1.txt” Open “F” For Output As #2
答案: 【】

5、单选题：

下列哪一组语句能够实现将文本框Text1的全部内容一次性写入文件（）

选项：
A:

Open “Text.dat” For Output As #1

Print #1 Text1.text

Close #1

B:

Open “Text.dat” For Output As #1

For I= 1 to Len(Text1.text)

Print #1 Mid(Text1.text,I,1)

Next I

Close #1

C:

Open “Text.dat” For Input As #1

Print #1 Text1.text

Close #1

答案: 【

】