2024年6月5日发(作者：)

基础题(1)

【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事

件过程。

标签和命令按钮的标题由各自的Caption属性来设置，文本框显示的内容由Text属性设置，

窗体的标题由其Caption属性来设置。在Visual Basic中可以用"＋"或"&"运算符将两个字符串连接

起来。

【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.93和表3.94。

表3.93

控件 标签1 标签2

Name Caption Name Caption

属性

Label1 Label2

设置值 书名 作者

表3.94

控件 文本框1 文本框2 命令按钮

Name Name Name Caption

属性

Text1 Text2 Command1

设置值 显示

步骤2：编写程序代码。

参考答案

Private Sub Command1_Click()

n = Text1 + "," + Text2

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)

【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。

窗体的大小由其Width和Height属性设置，分别决定窗体的宽和高；用滚动条的值来设置窗

体的宽和高，只要将窗体的Width属性和Height属性与滚动条的Value相关联即可。

【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.95和表3.96。

步骤2：编写程序代码。

参考答案

Private Sub HScroll1_Change()

=

End Sub

Private Sub VScroll1_Change()

=

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)

【解题思路】keyPreview属性用于设置或获取一个值，该值只是判断按

键事件传递到具有焦点的控件前，窗体是否将接收此事件，判断按键是否按下可以在窗体的

KeyDown事件中进行，用Chr函数将按键代码转换成字符并与给定字符进行比较。使用AddItem

方法可以向列表框中添加列表项目，使用RemoveItem方法可以从列表框中删除列表项目。

【操作步骤】

步骤1：打开本题工程文件。设置窗体的KeyPreview属性为True添加一个列表框名称为List1

的和一个名称为Text1的文本框。

步骤2：分析并编写程序代码。

程序提供代码

Private Sub Form KeyDown(KeyCode As Integer, Shift As Integer)

If Chr(KeyCode) = "A" Then

= InputBox("请输入要添加的项目")

'm ?

End If

If Chr(KeyCode) = "D" Then

= InputBox("请输入要删除的项目")

'For i = 0 To ?

'If (i) = ? Then

'Item ?