发布时间 : 星期二 文章2012年电大 - Visual - Basic程序设计形成性考核册 - 参考答案更新完毕开始阅读5cfa8d17cc7931b765ce158c
4、在窗体上添加一个Winsock控件，将其名称改为WinsockServer，将Protocol（协议）属性设置为0（即sckTCPProtocol） 各控件及事件代码如下： Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_Load() txtreceive.Text = \txtsend.Text = \
Winsockserver.LocalPort = 10001 txtserverip.Text = Winsockserver.LocalIP Winsockserver.Listen End Sub
Private Sub txtsend_Change() Winsockserver.SendData txtsend.Text End Sub
Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long) Winsockserver.Close
Winsockserver.Accept requestID End Sub
Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) Dim mystr As String
Winsockserver.GetData mystr txtreceive.Text = mystr End Sub
客户机程序的界面设计
1、与服务器程序类似，创建一个新的“标准EXE”工程，并添加Winsock控件。
2、将form1的名称改为 frmClt，并添加两个命令按钮控件，分别将它们的Caption属性设置为“退出”和“连接聊天服务器”。
3、在窗体添加四个文本框控件，分别将其名修改为txtClientIP, txtSenerIP, txtsend和txtReceive，用来显示客户机和要连接的服务器的IP地址以及需收发的信息。
4、在窗体上添加一个Winsock控件，将其名称改为WinsockClient，将（协议）属性设置为0（即sckTCPProtocol）
各控件及事件代码如下：
Private Sub Command1_Click()
Unload Me End Sub
Private Sub Command2_Click()
Winsockclient.RemoteHost = txtserverIP.Text Winsockclient.Connect End Sub
Private Sub Form_Load() txtreceive.Text = \txtsend.Text = \
Winsockclient.RemotePort = 10001 txtclientIP.Text = Winsockclient.LocalIP End Sub
Private Sub txtsend_Change() Winsockclient.SendData txtsend.Text End Sub
Private Sub Winsockclient_Connect()
MsgBox \你成功地与聊天室服务器进行了联接\End Sub
Private Sub Winsockclient_DataArrival(ByVal bytesTotal As Long) Dim mystr As String
Winsockclient.GetData mystr txtreceive.Text = mystr End Sub
Visual Basic程序设计形成性考核册作业
作业1 一、选择题
+ J& O; ^- u# g1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。
A、窗体设计 B、代码 C、属性 D、工程资源管理器窗口
2、窗体的load事件的触发时机是（B）。
A、用户单击窗体时 B、窗体被加载时 C、窗体显示之后 D、窗体卸载时3、与传统的程序设计语言相比，Visual Basic 最突出的特点是（C）。
: c' h: s0 U! D# s* a2 |, Z4 ?3 }5 i7 h$ O! c; y
% q5 A' N' t3 o0 K; q- j
A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术
4、VB6.0集成开发环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏
5、如果对象的名称为Mytext ,而且对象有一个属性Text，那么在代码中引用该属性的正
确格式是（B）。
蜗牛在线|学习者家园9 r. W7 _9 i' E3 b3 H' r+ n
. O$ K9 v( u$ U: N+ p$ z A、 text.Mytext B、Mytext.Text C、Mytext.(Text) D、Mytext*Text
6、下列可以激活属性窗口的操作是（D）。
A、用鼠标双击窗体的任何部位 B、执行“工程“菜单中的”属性窗口“命令
C、按Ctrl+F4 D、按F4
l+\ N' m# D0 ^/ b
1 X1 x\ {2 _- Y& U& ^
7、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的
属性，预先应执行的操作是（A）。
A、单击窗体上没有控件的地方 B、单击任一个控件 C、不执行任何操作 D、
双击窗体的标题栏
, @8 Q0 Q, M0 N: o1 P- e7 s' i
8、如果要在文本框键入字符时，只显示某个字符，如果（*），应设置文本框的（B）属性。
A 、Caption B、PasswordChar C、Text D、Char
9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.
A Locked B、MultiLine C、TabStop DVisible
5 \\' t' [/ D* ?# a! H
10 对于定时器（Tiner）控制，设置其定时是否开启的属性是（C） A、Index B、Tag C、Enabled D、Left
; p# l: Q% D% c+ O6 r% `
11、要在窗口体Fornl 内显示“myfrm”使用的语句是（ C）
; \\: w\ U/ B- B! kA、Form.caption=“myfrm”B、Fornl.caption=“myfrm”
C、forml.print“myfrm”D、form.print“myfrm”
12、对象的性质和状态特征称为（C）
A、事件 B、方法 C、属性 D、类
13、下列正确的赋值语句是（B）
A、x+y=20 B、y=x+20 C、3x=y D、s=
14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（D）键，就可出现MSDN窗
口直接显示所需的帮助信息。
蜗牛在线|学习者家园0 U( Q; Z( ]\ N* v) g8 ?( @9 I\y% l. f7 p( h3 ~4 N
A、Help B、F10 C、Ese D、F1
15、将调试通过的工程经“文件”菜单的“生成.exe文件“编绎成名.exe后，将该可执行
文件放到其它机器上不能运行的主要原因是（D）。
蜗牛在线|学习者家园: w: H9 C8 n: c/ j- O
A、运行的机器上无VB系统 B、缺少.frm 窗体文件 C、该执行文件有病毒 D、
以上原因都不对二、填空题
a) ~5 ^\ I! \\ r4 w ?3 O
蜗牛在线|学习者家园: K! ]1 P/ C0 G# k& H% w. \\6 x+ b# d
1、当进入VB集成开发环境后，发现没有显示“工具箱”窗口。应选择视图菜单的工具箱
选项，使“工具箱”窗口显示。
% P1 E\ F\ d5 c, J+ J, t# V$ F
2、在VB中，事件过程名由对象名和事件名构成。 3、工程文件的扩展名是 vbp ，窗体文件扩展名是 frm 。
4、对象时代码和数据的集合，例如，Visual Basic 中的窗体、按钮、
文本框 等都是对象。
' f2 k8 S$ i! `- t6 ^1 j$ Q; U蜗牛在线|学习者家园5 n* [4 D# J: P) \\: j1 S2 I
5、对象的方法用于实施某种操作功能 。当方法不需要任何参数并且也没有返回值，调用
对象的方法的格式为对象名.方法名 。例如对窗体Forml 使用Show 方法，应写
成 form1.show 。
7 a& U6 Q! t4 h6 Z/ Z
6、要使文本框显示滚动条，需要将其 ScrollBars 属性设置为 3 。 7、欲设置定时的时间间隔为4秒，则属性Interval 的值为 4000 。
8、要使标签框的大小随Caption属性做自动调整，应将 AutoSize 属性设置为 True 。
n0* u- ~' G* {( w' A$ d9、通过窗体布局窗口 可以在设计时直观地调整窗体在屏幕的位置。
10、要想在代码中给名为 txtshow 的文框赋予文本：GOOD WORK！时，应当编写的语句
是 txtshow.text=” GOOD WORK！” 。
11、若命令按钮的名称为Cmdopen，程序要求单击以上命令按钮，打开一个窗口frml,请对
以下事件过程填空。
/ q0 I4 J- N- h1 KPrivate Sub Cmdopen click()
Frm1.show End Sud
9 ~- p2 i% A$ P. e0 C; H
12、事件就是对象上所发生的事情，Visual Basic中的事件如单击 、装入、 鼠标移动等。一个对象响应的事件可以有多个，用户不能建立新的事件。事件过程是指响
应某个事件后所执行的代码。假设某一事件过程如下：
Private Sub cmd1_Click()
9 |\ Y( h. N5 j m' @! @( t
Form1.Caption=”VB示例”
End Sub
X4 I1 k0 h! Z0 g, s+ Y0 z! `则响应过程的对象名是 cmd1 ，事件名是 Click 。
\[* u& E/ H1 v13、对象的方法用于在对象上实施某种操作功能 。当方法不需要任何参数并且也没有返回值，调用对象的方法格式为对象名.方法名，例如，对窗体Form1 使用Show 方法，应写
成 Form1 .Show 。
14、为了在编写代码时能自动语法检查，必须执行工具 菜单中的选项
蜗牛在线|学习者家园- y4 e1 G! V/ N\ }/ p @9 Y
命令，打开 选项 对话框，然后选择“编辑器”选项卡中的自动语法检测。
蜗牛在线|学习者家园% @/ o& n T7 k15、定时器（Timer）控件可识别的事件是 Timer ，了生该事件的时间间隔定时由定时器
的 Interval 属性设置，其单位为毫秒。
三、问答题
1、什么是可视化编程和事件驱动？
答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编
程方式。