6[单选题] 要删除列表框中最后一个列表项,正确的语句是( )。
A.Listl.Removehem ListCount
B.Listl.Removehem Listl.ListCount
C.Listl.RemoveItem ListCount一1
D.Listl.Removeltem Listl.ListCount一1
参考答案:D
参考解析:ListCount属性返回列表框中列表项的个数,列表项的索引号从0开始,所以要删除最后一个列表项,ReMovehem方法中的索引号就应该是Listl.ListCount一1,故D选项正确。
7[单选题] 设有下面程序代码:
程序运行时的输出是
A.Visual Basic Programming 0
B.VisuAl Basic ProgrAmming 3
C.Visul Basic Progrmming 3
D.Visual Basic Pmgranmfing 2
参考答案:B
参考解析:Mid$(A$,4,2)是为了与老版本的VB兼容($的作用是强制将函数的返回值设为字符型)。&用来连接字符串。If条件判断字符是否和输入的字符相等,相等则n加1。选B.。
8[单选题] 窗体上有两个水平滚动条HV、I-IT,还有一个文本框Textl和一个标题为“计算”的命令按钮Commandl,并编写了以下程序.
运行程序,单击“计算”按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是( )。
A.过程调用语句不对,应为calc(HV。HT)
B.过程定义语句的形式参数不对,应为Sub calc(x As Control。Y As Contr01)
C.计算结果在文本框中显示出来
D.程序不能正确运行
参考答案:C
参考解析:访问滚动条控件的值,可以直接使用控件的名称,也可以在名称后面指明Value属性。滚动条位置是用数值来表示的,因此定义Calc过程时参数应该定义为Inte.ger类型。程序中,Textl.Text=x+Y语句说明计算的结果在文本框中显示出来。
9[单选题] 设在工程文件中有一个标准模块,其中定义了如下记录类型:
在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl一Click时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。
A.
B.
C.
D.
参考答案:A
参考解析:数据文件的写操作分为3步,即打开文件、写入文件和关闭文件。
首先,在顺序文件中打开文件写入数据的打开方式为:Open文件名For Output As#文件号。因此B.C选项排除,只看A、D选项。
写入顺序文件Print*语句格式为:Print#文件号,变量名,变量名…,Write语句的的格式与Print语句一样:Write#3c件号,变量名,变量名。而记录类型变量不能整体引用,需要指明记录变量中的成员名,格式为:记录变量名.成员名,Books类型变量B成员Name和TelNum赋值和引用应该是8.Name、B.TelNum,因此A选项正确。
10[简答题] 在名称为Forml的窗体上添加一个名称为Shapel的形状控件,添加两个名称分别为Commandl、Command2,标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”,如图1所示。请编写适当的事件过程,使得程序在运行时,单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮.将形状控件的边框颜色设为红色(&HFF&),如图2所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sja.vbp,窗体文件名保存为sjt2.frm。
参考解析:根据题意,通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。‘在单击命令按钮事件过程中,通过设置形状控件的BorderColor和Slmpe属性,将形状控件的边框颜色设为红色和将形状控件设为圆形。
【操作步骤】
步骤l:建立界面,并设置控件的属性。程序中用到的控件及属性见表2。
步骤2:编写程序代码。
参考答案:
Private Sub Commandl—Click()Shapel.Shape=3
End Sub
Pl'ivate Sub Command2_click()Shapel.BorderColor=&HFF&End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |