【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：第33次VB笔试试卷第二部分VB程序设计 - 中考高考绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

第 33 次 VB 笔试试卷第二部分 VB 程序设计一、单项选择题（1 分/小题，共 10 分）1、语句 PRINTSGN-26SGN-26的输出结果为16. 16 （A）SGN-2626 （B）SGN-26-26（C）SGN-261（D）SGN-26-12、VB 应用程序保存在磁盘上至少会有以17为扩展名两个文件. 17 （A）.DOC 和.TXT （B）.COM 和.EXE （C）.VBW 和.BAS （D）.VBP 和.FRM3、组合框有三种风格它们由 Style 属性所决定其中为下拉列表框时Style 属性值应为18. 18 （A）0 （B）1 （C）2 （D）34、Int198.5551000.5/100 的值19. 19 （A）198 （B）199.6 （C）198.56 （D）2005、若要访问组合框 Comb1 中被用户选中的表项，应使用（20） 20 （A）Comb1.Text （B）Comb1.List （C）Comb1.ListIndex （D）Comb1.ListCount6、下列各项变量中哪一项所占的内存空间最多21. 21 （A）dim x as currency x99 （B）dim st1 as string st1good （C）dim st2 as string st2goodbye （D）dim d as data d1898/09/127、清除列表框的所有选项应选择下列哪种方法22. 22 （A）Clear （B）Cls （C）ClearItem （D）RemoveItem8、如果在窗体上已经创建了一个文本框对象 Text1可以通过23事件获得输入键值的 ASCII 码. 23 （A）Change （B）LostFocus （C）KeyPress （D）GotFocus9、以下不属于 VisualBasic 系统的文件类型是24. 24 （A）.frm （B）.bat （C）.vbg （D）.vbp10、控件是25. 25 （A）建立对象的工具 （B）设置对象属性的工具 （C）编写程序的编辑器 （D）建立图形界面的编辑窗口二、程序阅读（3 分/题，共 45 分）1、在窗体上画一个名称为 Label1、标题为VisualBasic 考试的标签两个名称分别为 Command1和 Command2、标题分别为开始和停止的命令按钮然后画一个名称为 Timer1 的计时器控件并把其 Interval 属性设置为 500. 编写如下程序:Private Sub Form_LoadTimer1.Enabled FalseEnd SubPrivate Sub Command1_ClickTimer1.Enabled TrueEnd SubPrivate Sub Command2_ClickTimer1.Enabled FalseEnd SubPrivate Sub Timer1_TimerIf Label1.Left Width ThenLabel1.Left Label1.Left 120ElseLabel1.Left 0End IfEnd Sub（1）程序运行后单击开始按钮标签在窗体中移动. 对于这个程序以下叙述中错误的是（26） 26 （A）标签的移动方向为自左向右 （B）单击停止按钮后再单击开始按钮标签从停止的位置继续移动 （C）当标签全部移出窗体后将从窗体的另一端出现并重新移动 （D）标签每隔 1 秒移动一次（2）程序使用了几个控件（27） 27 （A）1 （B）2 （C）3 （D）4（3）Timer 控件的 Interval 属性的单位是（28） 28 （A）秒 （B）毫秒 （C）微秒 （D）纳秒２、程序如下 Function fm As Integer As Integer b1 Static c As Integer bb1 cc1 fmb c End Function Private Sub Command1_Click Dim a As Integer a2 Sum 0 For i 1 To 3 Sum Sum fa Next i Print Sum End Sub1 程序运行后，窗体上显示的值为（29。

    29A 24 B 12 C 28 D 32 。

    2 如果将 Static c As Integer 改为 dim c As Integer，则 sum 的值为（30）30A 24 B 12 C 28 D 32 。

    3 如果将语句 b1 去掉，则 sum 的值又为（31）31A 24 B 12 C 28 D 32３、程序如下Dim x As Integer y As Integer z As Integer Sub s1a As Integer b As Integer Dim c As Integer a2 a bb2 cab End Sub Sub s2a As Integer ByVal b As Integer Dim c As Integer a2 a bb2 cab End Sub Private Sub Command1_Click x4 y4 z6 Call s1x y Print x y z Call s2x y Print x y z End Sub 。

    （１）程序运行后，窗体上显示的结果为（32）32A 24 28 B 20 28 C 20 18 D 20 20 。

    2 将 ByVal b As Integer 改为 b As Integer 后窗体上显示的结果为（33）33A 24 28 B 20 28 C 20 18 D 20 303 修改后变量 x 和 y 的最后取值为（34）.34A 24 28 B 20 20 C 16 8 D 20 30４、程序如下 Private Sub Form_Click Dim num As Integer dat1 As Integer dat2 As Integer Dim swit As Boolean num 0 For dat1 2 To 10 Open d:prime.dat For Output As 1 swit True For dat2 2 To Sqrdat1 If dat1 Mod dat2 0 Then swit False Exit For End If Next dat2 Next dat1 If swit Then num num 1 Write 1 第 num 个数 dat1 End If Close 1End Sub（１）程序中 write 语句的作用是（ 35）.35A 读数据 （B）写数据（C） 修改数据 （D）追加数据 。

    （２）执行程序后，prime.dat 文件的内容是（36）36A第 1 个数 7 （Ｂ）第１个数２ （Ｃ）第１个数２ 第２个数５ 第２个数３ 第２个数３ 第３个数９ 第３个数５ 第３个数５ 第４个数７ （Ｄ）以上都不对 。

    3 该程序的功能是（37）37A 统计２到１０之间的数据个数。

    （B）统计２到１０之间的素数个数。

    （C）找出２到１０之间所有的素数。

    （D）找出２到１０之间的第一个素数。

    ５、程序如下Sub s1b As Integer For i 1 To 4 bi 2 i Next iEnd SubL1:Private Sub Command1_Click Dim a As Integer Redim a1 to 4 For i 1 To 4 ai i 5 Next i s1 a For i 1 To 4 Print ai Next i End Sub1程序运行的结果是（３８） 。

    38A 6 7 8 9 B 12 14 16 18 C 2468 D 12342 程序中所定义的 a是（39） 。

    39A 用户自定义类型 B 静态数组（C） 动态数组 （D） 用户自定义类型数组 。

    （３）在 L1 处添加语句 option base 1 后，程序运行的结果（40）40A 有变化 （B）无变化 （C）出现语法错误 （D）以上都不是三、程序填空（2 分/空，30 分）1、下面的程序段用于求矩阵相乘 CA×B，设 A、B、C 分别为 m×p、p×n、m×n 的矩阵。

    Private Sub Form_ClickConst m 4 p 3 n 2Dim a1 To m 1 To p As IntegerDim b1 To p 1 To n As IntegerDim c1 To m 1 To n As IntegerDim i As Integer j As Integer k As Integer sum As IntegerFor i 1 To m For k 1 To p ai k i Next kNext iFor i 1 To p For k 1 To n bi k i Next kNext iFor i 1 To m For j 1 To n 【①】 For k 1 To p sum sum 【②】 Next k ci j 【③】Next j iPrint 输出矩阵For i 1 To m For k 1 To n Print ci k Next k PrintNext iEnd Sub2、以下程序段分别以子过程和函数来计算某级数部分和，级数公式如图 1 所示。

    Function jishu1x eps As Double Dim n s t n 1: s 0: t 1 Do While Abst eps s s t t t x / n n n 1 Loop 【①】 End FunctionSub jishu2s x eps Dim n t n 1: s 0: t 1 Do While Abst eps s s t t t x / n n n 1 Loop End SubPrivate Sub Command1_Click Dim f1 f2 f1 jishu12 0.000001 【②】 jishu2f2 2 0.000001 Print f1 f1 f2 f2End Sub3、用输入对话框输入 x，根据如图公式计算对应的 y，在窗体上输出 y 的值。

    Private Sub Command1_Click Dim x As Single 【①】 As Single x Val【②】Please input x : 输入 X 的值 If x 10 Then 【③】 ElseIf x 10 Then y Sqrx 【④】 Else y 2 x 3 6 End If Print yEnd Sub4、以下程序段实现的功能是：查找一数列中是否存在某数字 x，若数列中存在该数字，则输出其出现的次数，否则输出不存在信息。

    Private Function Searcha As Integer ByVal key n As Boolean Dim i Search False For i LBounda To 【①】 If key ai Then Search True 【②】 End If Next iEnd FunctionPrivate Sub Form_ClickDim x As Integer k As Integer num As IntegerDim b As Integernum IntRnd 10 1ReDim bnumFor i 0 To num bi IntRnd 70 20 Print biNext iPrintx ValInputBox输入待查找数据If Search【③】 x k ThenPrint x 在数列中出现 k 次Else Print x 未在数列中出现End IfEnd Sub5、在文本框内输入一串字符后，统计并显示各字母出现的次数不区分大小写字母。

    Private Sub Command1_Click Dim a1 To 26 As Integer c As String 1【①】 LenText1 For I 1 To l1 c 【②】MidText1 I 1 If c a And c 0 Then Picture1.Print Chrj 96 aj End If Next j End Sub