1 基本操作题

    请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。

1、在窗体上拖拉出一个文本框，名称为Txt1，Text属性为空白。再画一个列表框，名称为Lst1，通过属性窗口向列表框中添加4个项目，分别为“aaaa”、“bbbb”、“cccc”和“dddd”(如下图所示)。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。

    程序运行时的窗体界面如下图所示。

    注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

2、在名称为Form1的窗体上建立两个名称分别为Command1和Command2.标题分别为“上午”和“下午”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“上午&r ……此处隐藏7008个字…… Close #1

    10 End Sub

    11 Private Sub Cmd2_Click()

    12 Text1 Text=""

    13 s=0

    14 For i=1 T0 100

    15 If a(i)Mod2＜＞0 Then

    16 Text1.Text=Text1.Text＆a(i)＆Space(1)

    17 s=s十a(i)

    18 EndIf

    19 Next

    20 putdatas

    21 End Sub

    第五步：按要求保存文件即完成本题。

[解析]

    本题主要考查数据的输入输出及Visual Basic的控制结构及函数设计。