二级 VB 程如序设计 A 场.docVIP

二级 VB 程序设计 A 场 一、选择题 二、填空题 1． 程序在调试运行时，遇设置的断点暂停下来，要继续执行下一句语句，应按__________功能键。 2． 要使窗体上的菜单项呈灰色状态，应将__________属性设置为False。___ 3． 　的VB表达式为__________。 4． 当单击垂直滚动条上的空白区域时，要使滑块的移动量为50，则需通过设置__________属性值来实现。___ 5． 要使图片每隔0.1秒自动向右移动300twip，应在窗体上添加时钟Timer1控件并在__________事件中编写代码。 6． 组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和下拉式组合框，可以通过设置组合框的__________属性的不同值来实现。____ 7． 在VB中，对象的三要素为：属性、方法和__________。 8． 对于正在使用的数组A，要增加一个单元，且不能破坏数组内的数据，则使用的语句是：ReDim ________ A( Ubound ( A ) + 1 )。____ 9． 在多分支结构中，不管何种条件，程序运行时最多执行其中的__________个分支。 10． 对数据文件的访问，通常有三个步骤：__________、读/写和关闭。_____ 三、程序填空 1．下面程序的功能是从键盘上输入10个整数。如果输入的数是负数，存放在数组s的左端；如果是非负数，存放在数组s的右端，如图所示。最后，在窗体的同一行上输出全部数组元素。 -2 -1 -5 … 0 3 11 9 程序的思想是：分别设置数组的左端和右端指针，判断输入整数的正负号，决定存放于数组s的左端或右端，调整相应指针位置，将该数存放于数组。 Private Sub Command1_Click() Dim s%(1 To 10), pLeft%, pRight%, i%, x% pLeft = 0 设置数组的左端指针 pRight = 11 设置数组的右端指针 For i = 1 To 10 x = InputBox(input data:) If ____(1)____ Then pLeft = pLeft + 1 _______(2)______ Else ______(3)______ s(pRight) = x End If Next i For i = 1 To 10 Print ;___(4)___ ; Next i End Sub 2．本程序计算Sn的值，并将计算结果显示在标签中。Sn＝a＋aa＋aaa＋...＋aaa…a，其中：3≤n≤7，1≤a≤9，最后一项为n个a。例如：当a＝3，n＝5时，则　Sn＝3＋33＋333＋3333＋33333。 Private Sub Command1_Click() Dim a!, n%, x%, Sn!, tn! a = Int(Rnd * 5 + 3) n = Int(Rnd * 9 + 1) x = 1 Sn = 0 tn = 0 Do While _____(1)____ = n tn = tn * 10 + a Sn = ____(2)_____ x = x + 1 Loop Label1.Caption = Sn= ____(3)_____ 显示结果 End Sub__ 3．函数FindSub用来判断字符串S中是否包含子串SubS。 Text1存放子串，Text2输入字符串，以回车键结束输入，调用函数FindSub，如果Text2包含子串，则在Picture1上输出该字符串；如果不包含指定子串，则给出提示。 在Text2_KeyPress事件中，以回车键的ASCII码值判断字符串输入结束，开始调用FindSub函数。在FindSub函数中，从S串中不断截取样本串的子串与SubS串比较。 下图是多次执行Text2_KeyPress事件后的显示效果。 Private Function FindSub(ByVal S$, ByVal SubS$) As Boolean Dim lenS%, lenSubS%, i% lenS = Len(S) lenSubS =_____(1)_____ For i = 1 To lenS -