VB面向对象程序设计(山东联盟)知到章节答案智慧树2023年鲁东大学_百

2024年2月4日发(作者：)

VB面向对象程序设计（山东联盟）知到章节测试答案智慧树2023年最新鲁东大学

第一章测试

1. 一个应用程序________窗体。

参考答案:

可包括多个

2. 在一个工程中可以有多个__________。

参考答案:

窗体文件

3. 工程资源管理器窗口标题栏下的________按钮用于切换到“窗体编辑窗口”，显示和编辑正在设计的窗体。

参考答案:

“查看对象”按钮

4. 在一个工程中可以有多个__________。

参考答案:

标准模块文件

5. 在代码窗口中，当从对象列表框中选择了某一对象后，在______中会列出适用该对象的事件。

参考答案:

过程框

6. 保存一个工程至少应保存两个文件，这两个文件分别是_______。

参考答案:

窗体文件和工程文件

7. 工程文件的扩展名是________。

参考答案:

vbp

8. 窗体文件的扩展名是________。

参考答案:

frm

9. 标准模块文件的扩展名是________。

参考答案:

bas

10. Visual Basi的MSDN帮助窗口最明显的特征是________。

参考答案:

保持了浏览器的特征

11. Visual Basic窗体设计器的主要功能是________。

参考答案:

建立用户界面

第二章测试

1. 设有一名称为txtName的文本框，则下列能使其具有输入焦点的语句是________。

参考答案:

us

2. 下列说法中错误的是________。

参考答案:

Visual Basic是采用对象驱动编程机制的语言

3. 在运行时，如果按Tab键跳过了一个可以获得焦点的控件（如文本框），其原因可能是________。

参考答案:

该控件的TabStop属性值为False

4. 设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是________。

参考答案:

n = 89

5. 假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是________。

参考答案:

100

6. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_______。

参考答案:

代码窗口

7. 一个可执行的VB应用程序至少要包括一个_______。

参考答案:

窗体模块

8. 下列叙述中错误的是_______。

参考答案:

Visual Basic应用程序只能以解释方式执行

9. 用户可通过_______模拟的屏幕小图像来布置应用程序界面。

参考答案:

窗体布局窗口

10. 在窗体上添加一个文本框，名称为text1，然后编写如下的load事件过程，则程序的运行结果是__________。

Private Sub Form_Load

=""

us

For k=1 to 5

t=t*k

Next k

=t

End Sub

参考答案:

出错

11. 保存一个工程至少应保存两个文件，这两个文件分别是__________。

参考答案:

窗体文件和工程文件

12. 标签控件能够显示文本信息，文本内容只能用__________属性来设置。

参考答案:

Caption

13. 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口设置__________。

参考答案:

Passwordchar属性值为*

14. 若要使用户不能修改文本框TextBox1中显示的内容，应设置__________属性。

参考答案:

Locked

15. 能够获得一个文本框中被选取文本的内容的属性是__________。

参考答案:

Seltext

16. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Move 500, 500

End Sub

程序运行后，单击命令按钮，产生的结果为________。

参考答案:

将窗体移动到距屏幕左边界、上边界各500的位置

17. 在设计阶段，通过属性窗口为命令按钮的Picture属性装入一个图形，但没有显示，其原因是________。

参考答案:

按钮的Style属性值为0

18. 对于命令按钮，下列说法中正确的是________。

参考答案:

通过Picture属性可以给命令按钮指定一个图形

19. 以下叙述中，错误的是________。

参考答案:

如果文本框的TabStop属性值为False，则不能接收从键盘上输入的数据

20. 下列叙述中不正确的是_______。

参考答案:

注释语句可以放在程序代码中的任何位置

第三章测试

1. 如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列__________ 操作步骤。

参考答案:

在“工具”菜单中选取“选项”命令，打开选项对话框，单击“编辑器选项卡”选中“要求变量声明”选项

2. 声明一个变量为局部变量应该用 __________。

参考答案:

Private

3. 以下能作为Visual Basic变量名的是__________。

参考答案:

E1

4. 数学表达式3≤x<10在VB中的逻辑表达式为__________。

参考答案:

3< =x AND x< 10

5. 下列选项中，为字符串常量的是__________。

参考答案:

＂6／12／2001＂

6. 用户自定义数据类型时，其成员不能是__________。

参考答案:

变长字符串

7. 若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合法？__________

参考答案:

Long

8. 下面__________是合法单精度型变量。

参考答案:

num!

9. 下面__________是不合法的整常数

参考答案:

%100

10. 假设变量intVar是一个整型变量，则执行赋值语句intVar="2"+3之后，变量intVar的值是 __________。

参考答案:

5

11. 下列各声明语句中错误的是________。

参考答案:

Dim Test As String='计算机等级考试'

12. 设a=4，b=5，c=6，执行语句：Print a < b And b < c ，窗体上显示的是________。

参考答案:

True

13. 以下说法中，正确的是________。

参考答案:

表达式Int(Rnd())的值是0

14. 设有如下的记录类型：

Private Type Employee

num As String

name As String

End Type

则下列语句中正确的是________。

参考答案:

Dim e As Employee

15. Visual Basic中，日期"1999年6月18日"的表达形式为________。

参考答案:

#6/18/1999#

16. 执行语句Print Sgn(-2^3)+Abs(Int(-12.2) Mod 100Sqr(100))的输出结果为________。

参考答案:

2

17. 表达式 (-1) * Sgn(-100 + Int(Rnd * 100)) 的值是________。

参考答案:

1

18. 下列逻辑表达式中，能正确表示条件"x和y都是奇数"的是________。

参考答案:

x Mod 2 = 1 And y Mod 2 = 1

19. 表达式Int(Rnd()*11)+10的值的范围是________。

参考答案:

整数10~20（含10和20）

20. 若变量P的值为 -3，则 -P^2的值是________。

参考答案:

-9

21. Visual Basic数据类型中，占用内存最小的是________。

参考答案:

Byte

22. 下面是Visual Basic合法变量名的是________。

参考答案:

PrintA

23. 以下不是Visual Basic合法常量的是________。

参考答案:

'a'

第四章测试

1. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim i As Integer

Dim num As Integer

Dim n As Integer

n = 0

Randomize

For i = 1 To 10

num = Int(Rnd * 10) + 1

Select Case num Mod 2

Case 1

Exit For

Case 0

Print num

n = n + 1

End Select

Next i

Print "n="; n

End Sub

下面有关描述中正确的是________。

参考答案:

变量n的作用是累计自过程运行开始到结束所产生的偶数个数

2. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序代码：

Private Const NUM As Integer = 10

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 1

b = NUM

Do Until b > NUM

a = a * NUM

b = b + 1

Loop

Print a

End Sub

则当程序运行时，单击Command1后，在窗体上的输出结果是________。

参考答案:

10

3. 已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：

Str_x =

n = Len(Str_x)

m = 0

t = 0

For i = 1 To n

w = UCase(Mid(Str_x, i, 1))

If w >= "A" And w <= "Z" Then

If t = 0 Then m = m + 1

t = t + 1

Else

t = 0

End If

Next

Print m

该程序段的功能为统计并输出英文短文中________。

参考答案:

单词的个数

4. 设窗体上有文本框Text1和命令按钮Command1，并编写了下面的过程：

Private Sub Command1_Click()

ch$ = ""

x% = Val()

k = 2

For k = 2 To x / 2

If x Mod k = 0 Then

ch = ch & " " & k

End If

Next k

Print ch

End Sub

程序运行后，在文本框中输入28，单击命令按钮，则输出是________。

参考答案:

2 4 7 14

5. 设有如下程序段：

Dim x As Integer

x = Val(InputBox("输入变量x的值"))

Select Case x

Case ________________

Print "*"

Case Else

Print "#"

End Select

以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出"*"，其它情况输出"#"，则程序中横线处应填入的内容是________。

参考答案:

5 To 10, Is>20

6. 设a、b、c为整型变量，其值分别为4、5、6。以下程序段的输出结果是________。

a = b: b = c: c = a

Print a; b; c

参考答案:

5 6 5

7. 以下Case子句中错误的是________。

参考答案:

Case Is > 10 And Is < 50

8. 有如下程序代码：

Private Sub Form_Click()

X = 8

If X > 8 Then

Print "X > 8"

ElseIf X < 10 Then

Print "X < 10"

ElseIf X = 8 Then

Print "X = 8"

End If

End Sub

运行程序，单击窗体，输出结果是________。

参考答案:

X < 10

9. 在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Form_Click()

Dim S As Integer

S = 0

For i = 1 To 15

x = 2 * i - 1

If x Mod 3 = 0 Then

S = S + 1

End If

Next i

n = S

End Sub

运行程序，单击窗体，标签中显示的是________。

参考答案:

5

10. 执行下面的程序段后，x的值为________。

x=5

For i=1 to 20 Step 2

x=x+i5

Next i

参考答案:

21

11. 在窗体中画一个命令按扭，然后编写以下事件过程：

Private Sub Command1_Click( )

For i=1 to 4

x=4

For j=1 to 3

x=3

For k=1 to 2

k=k+6

Next k

Next j

Next i

Print x

End Sub

程序执行结果为________。

参考答案:

3

12. 对语句 If x=1 Then y=1 ,下列说法正确________。

参考答案:

x=1 是关系表达式， y=1 是赋值语句

13. 设有如下程序：

Private Sub Command1_Click ( )

Dim sum As Double ,x As Double

sum=0

For i=1 To 5

x=n/i

n=n+1

sum =sum +x

Next

End Sub

该程序通过For 循环计算一个表达式的值，这个表达式是________。

参考答案:

1/2 +2/3+3/4+4/5

14. 在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:

Private Sub Command1_Click( )

n %=

Select Case n

Case 1 to 20

x=10

Case 2,4,6

x=20

Case Is<10

x=30

Case 10

x=40

End Select

=x

End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。

参考答案:

10

15. 以下叙述中，错误的是________。

参考答案:

InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定

16. 在Loop循环结构中Loop语句的作用是________。

参考答案:

转移到Do While语句行，开始下一次判断和循环

17. 设 a=6，则执行x= IIf ( a<6 ,-1 ,0 ) 后，x的值是________。

参考答案:

0

第五章测试

1. 在窗体模块的通用声明段中声明变量时，不能使用__________关键字。

参考答案:

Static

2. 使用ReDim Preserve可以改变数组__________。

参考答案:

最后一维的大小

3. 下列关于ReDim的说法中错误的是__________。

参考答案:

ReDim语句可以改变数组类型。

4. 以Dim x(6，2 To 5)来声明一个二维数组，错误的选项是__________。

参考答案:

LBound(x,2)的返回值是1

5. 下面的数组声明语句中正确的是__________。

参考答案:

Dim A(3,4) As Integer

6. 语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。

参考答案:

210个

7. 下面的数组声明语句中正确的是__________。

参考答案:

Dim gg(1 To 5) As String

8. 用Dim b(-2 To 4) As String 语句所定义的数组元素个数是__________个。

参考答案:

7

9. 定义10个单精度实型一维数组正确的语句是__________。

参考答案:

Dim a(9) As Single

10. 以下属于Visual Basic合法的数组元素是__________。

参考答案:

s(0)

11. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：

Option Base 1

Dim arr() As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim s As Integer

ReDim arr(4, 2)

s = 0

For i = 1 To 3

For j = 1 To 2

arr(i, j) = i + j

Next j

Next i

ReDim Preserve arr(4, 4)

For j = 3 To 4

arr(3, j) = j + 10

Next j

For i = 1 To 4

s = s + arr(i, i)

Next i

Print s

End Sub

程序运行过程中，当单击Command1时，输出结果为________。

参考答案:

19

12. 运行如下程序

Private Sub Command1_Click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 4

a(i, j) = i * 2 + j

If a(i, j) / 7 = a(i, j) 7 Then

n = n + 1

End If

Next j

Next

Print n

End Sub

则n的值是________。

参考答案:

3

13. 若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：

Private Sub Form_Load ( )

m "数学"

m "物理"

m "化学"

m "外语"

m "语文"

End Sub

Private Sub Form_Click()

Item 1

Item 2

End Sub

运行程序后，单击窗体，则列表框中显示的项目是________

参考答案:

数学化学语文

14. 设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。

参考答案:

15. 假定列表框List1中没有被选中的项目，则执行Item

dex 语句的结果是________。

参考答案:

出错

16. 设组合框 Combo1 中有5 个项目，则以下能删除最后一项的语句是________。

参考答案:

Item 4

17. 设在程序开始处有语句：Option Base 0，则下面定义的数组中正好有12个元素的是________。

参考答案:

Dim s%( 3 , 2 )

18.

在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程：

Private Sub Form_Load()

m "100"

m "200"

m "300"

m "400"

= ""

End Sub

Private Sub List1_DblClick()

a =

Print a +

End Sub

程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________。

参考答案:

400500

19. 设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：

Private Sub Option1_Click(Index As Integer)

n = Index

If Index < 3 Then n = n + 1

Print Option1(n).Caption

End Sub

程序运行时，单击其中一个单选按钮，则在窗体上显示的是________。

参考答案:

被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题

20. 在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码：

Option Base 0

Private Sub Command1_Click()

Dim a(5) As Integer, n As Integer

For i = 0 To 5

a(i) = i

n = n + a(i)

Next i

Label1 = n

End Sub

运行程序，单击命令按钮，在标签中显示的内容是________。

参考答案:

15

21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：

Option Base 1

Private Sub Command1_Click()

Dim a(5) As String

Dim i As Integer

Dim b As Variant

For i = LBound(a) To UBound(a)

a(i) = Chr(Asc("a") + (26 - i))

Next i

For Each b In a

Print b;

Next

End Sub

程序运行时，单击Command1，则输出结果是________。

参考答案:

zyxwv

22. 在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码：

Private Sub Form_Load()

m "111"

m "222"

m "333"

m "444"

m "555"

m "666"

= ""

End Sub

程序运行后，如果单击窗体，要求在文本框中显示"222555"，以下能实现该操作的事件过程是________。

参考答案:

Private Sub Form_Click() dex = 1 dex =

1 = + End Sub

23. 组合框兼有两种控件的特性，这两种控件是________。

参考答案:

列表框和文本框

24. 下列说法中正确的是________。

参考答案:

用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间

25. 列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。

参考答案:

(dex)

第六章测试

1. 定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则__________。

参考答案:

每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

2. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用__________关键字在过程中定义局部变量。

参考答案:

Static

3. 根据变量的作用域，可以将变量分为3类，分别为__________。

参考答案:

局部变量、模块变量和全局变量

4. 下列关于过程叙述不正确的是__________。

参考答案:

无论过程传值调用还是过程传址调用，参数传递都是双向的

5. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是__________。

参考答案:

Sub f1(n%,m%)

6. 下列定义为abc的过程定义语句中正确的是__________。

参考答案:

Sub abc(x,y)

7. 有如下函数过程：

Function gys(ByVal X As Integer, ByVal Y As Integer) As Integer

Do While Y <> 0

reminder = X Mod Y

X = Y

Y = reminder

Loop

gys = X

End Function

以下调用函数的事件过程，该程序的运行结果是__________。

Private Sub Command7_Click()

Dim a As Integer

Dim b As Integer

a = 100

b = 25

X = gys(a, b)

Print X

End Sub

参考答案:

25

8. 已知过程定义的首行为Sub sum(a As Integer, b As Integer)，则下面过程调用语句中正确的是________。

参考答案:

sum x, y

9. 设有如下程序代码：

Dim a%

Public b%, c%

Private Sub Form_Click()

Dim b%

Print a; b; c

End Sub

Private Sub Form_Load()

Dim a%

a = 5

b = 8

c = 10

End Sub

运行程序时单击窗体，则在窗体上显示的是________。

参考答案:

0 0 10

10. 设有以下程序片段：

Public x%

Private y$

Private Sub Command1_Click()

Dim a

……

End Sub

Private Sub Command2_Click()

Static b

……

End Sub

在Command1_Click过程中无法访问的变量是________。

参考答案:

b

11. 编写如下程序代码：

Private Sub Command1_Click()

Const n = 5

Dim arrx(n) As Integer

For i = 1 To 5

arrx(i) = i * i

Next i

Call swap(arrx(), n)

For i = 1 To n

Print arrx(i);

Next

End Sub

Public Sub swap(a() As Integer, k As Integer)

For i = 1 To k / 2

t = a(i)

a(i) = a(k - i + 1)

a(k - i + 1) = t

Next

End Sub

程序运行后，单击命令按钮Command1，输出结果为________。

参考答案:

25 16 9 4 1

12. 如果在过程A中用语句：Call proc(a, b) 调用下面的过程

Private Sub proc(b As Integer, ByVal a As Integer)

a = a + 1

b = b * 2

End Sub

则调用结束后的结果是________。

参考答案:

过程A中变量a的值变为原有值的2倍

13. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码：

Private Sub sub1(ByRef d(), ByRef m1 As Integer)

Dim i As Integer

m1 = d(LBound(d))

For i = LBound(d) + 1 To UBound(d)

If m1 < d(i) Then m1 = d(i)

Next i

End Sub

Private Sub Command1_Click()

Dim n1 As Integer

n1=-1

Dim data()

data = Array(10, 20, -20, 50, 15, -5)

Call sub1(data(), n1)

= n1

End Sub

程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为________。

参考答案:

50

14. 有以下程序代码：

Private Sub Command1_Click ()

Print fun(10), fun(5)

End Sub

Private Function fun(n As Integer) As Integer

Static t

For k = 1 To n

t = t + k

Next k

fun = t

End Function

执行Command1_Click过程产生的输出是________。

参考答案:

55 70

15. 以下叙述中错误的是________。

参考答案:

一个工程中可以包含一个或多个窗体，但不能包含其他模块

16. 以下叙述中错误的是________。

参考答案:

Visual Basic应用程序只能以解释方式执行

17. 要求函数的功能是：从参数str字符串中删除所有参数ch所指定的字符，返回实际删除字符的个数，删除后的字符串仍在str中，为此某人编写了函数DelChar如下：

Function DelChar(str As String, ch As String) As Integer

Dim n%, st$, c$

st = ""

n = 0

For k = 1 To Len(str)

c = Mid(str, k, 1)

If c = ch Then

st = st & c

Else

n = n + 1

End If

Next k

str = st

DelChar = n

End Function

并用下面的Command1_Click()过程观察函数调用结果

Private Sub Command1_Click()

ch$ =

Print DelChar(ch, "x"), ch

End Sub

发现结果有错误，程序代码需要修改，以下正确的修改方案是________。

参考答案:

把语句If c = ch Then 改为If c <> ch Then

18. 如果窗体模块A中有一个过程：

Private Sub Proc( )

……

End Sub

则下面叙述中错误的是________。

参考答案:

在窗体模块B中可以调用此过程

19. 以下关于VB文件的叙述中，正确的是________。

参考答案:

一个.vbg文件中可以包括多个.vbp文件

20. 下面叙述中正确的是________。

参考答案:

一个窗体是一个窗体模块

21. 以下叙述中错误的是________。

参考答案:

一个工程中可以包含一个或多个窗体，但不能包含其他模块

22. 以下叙述中错误的是________。

参考答案:

在标准模块中不能定义过程

23. 下面有关标准模块的叙述中，错误的是________。

参考答案:

标准模块不完全由代码组成，还可以有窗体

24. 下面关于标准模块的叙述中错误的是________。

参考答案:

标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程

25. 在标准模块中用Public关键字定义的变量，其作用域为________。

参考答案:

整个工程

26. 以下叙述中错误的是________。

参考答案:

在一个窗体文件中用Private定义的通用过程可以被其他窗体调用

27. 下列关于标准模块的叙述中，错误的是________。

参考答案:

标准模块文件的扩展名为.bac

28. 以下关于VB文件的叙述中，错误的是________。

参考答案:

工程文件的扩展名为.frm

29. 以下关于VB文件的叙述中，正确的是________。

参考答案:

VB应用程序可以被编译为.exe文件

30. 如果在窗体模块中所有程序代码的前面有语句：Dim x ，则x是________。

参考答案:

窗体级变量

31. 如果将数组名作为函数调用的实参，则传递给形参的是________。

参考答案:

数组第一个元素的地址

第七章测试

1. 下列不能作为“容器”（即可以在其中放置其他控件）的是________。

参考答案:

组合框

2. 下列叙述中错误的是________。

参考答案:

由于直线控件没有Move方法，所以直线控件在运行阶段不能移动

3. 用于设置计时器事件产生间隔的属性是________。

参考答案:

Interval

4. 设形状控件的Width与Height属性的值相等。下面叙述中正确的是________。

参考答案:

呈现的图形一定不是矩形

5. 设窗体上有2个框架，每个框架中有若干个单选按钮，下面叙述中正确的是________。

参考答案:

每个框架中都有一个单选按钮可以被选中

6. 在计时器控件中，Interval属性的作用是________。

参考答案:

设置产生计时器事件的间隔

7. 决定对象拖放模式的属性是________。

参考答案:

DragMode

8. 下列关于键盘事件的说法中，正确的是________。

参考答案:

大键盘上"4"键的上档字符是"$"，当同时按下Shift和大键盘上的"4" 键时，KeyPress事件过程的

9. 在刚建立的EXE工程中，工具箱窗口中没有的控件是________。

参考答案:

通用对话框

10. 下面说法中错误的是________。

参考答案:

在设计阶段，把已复制到剪贴板上的图像粘贴到图片框或图像框中，可以将该图片装入图片框或图像框

11. 要使图片框P1中显示当前路径下的图片文件，则应使用的语句是________。

参考答案:

e=LoadPicture("")

12. 窗体上有1个名称为List1、含有3个项目的列表框，1个名称为Text1的文本框，以及1个Interval属性值为1000的计时器控件Timer1。某人编

制了以下程序，希望程序运行时，每隔1秒， List1中的3个项目能够依次在Text1中循环显示。

Private Sub Timer1_Timer()

Dim i As Integer

= (i)

i = i + 1

If i = unt Then

i = 0

End If

End Sub

运行程序，发现有错误。以下正确的修改是________。

参考答案:

将语句Dim i As Integer修改为Static i As Integer

13. 在窗体上有一个Picture1图片框，没有加载图片，在当前文件夹下有一个位图文件，并有下面的程序代码：

Dim HasPic As Boolean

Private Sub Picture1_Click()

If HasPic Then

e = LoadPicture("")

Else

e = LoadPicture("")

End If

HasPic = Not HasPic