第33次VB笔试试卷第二部分VB程序设计

1、第33次VB笔试试卷第二部分VB程序设计一、单项选择题（1分/小题，共10分）1、语句PRINTSGN(-26)=;SGN(-26)的输出结果为(16).16 （A）SGN(-26)=26 （B）SGN(-26)=-26（C）SGN(-26)=+1（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、I

2、nt(198.555*100+0.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 x=99 （B）dim st1 as string st1=good（C）dim st2 as string st2=goodbye （D）dim d as data

3、d=1898/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）建

4、立图形界面的编辑窗口二、程序阅读（3分/题，共45分）1、在窗体上画一个名称为Label1、标题为VisualBasic考试的标签,两个名称分别为Command1和Command2、标题分别为开始和停止的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500. 编写如下程序: Private Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.

5、Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If Label1.Left = eps) s = s + t t = t * x / n n = n + 1 Loop 【】 End FunctionSub jishu2(s#, x!, eps#) Dim n%, t# n = 1: s = 0: t = 1 Do While (Abs(t) = eps) s = s + t t = t * x / n n = n + 1 Loop End SubPrivate Sub Command1_Click() Dim f1#, f2# f1 = jis

6、hu1(2#, 0.) 【】 jishu2(f2, 2#, 0.) 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 = Sqr(x) 【】 Else y = 2 * x 3 + 6 End If Print yEnd Sub4、以下程序段实现的功能是：

7、查找一数列中是否存在某数字x，若数列中存在该数字，则输出其出现的次数，否则输出不存在信息。Private Function Search(a() As Integer, ByVal key, n%) As Boolean Dim i% Search = False For i = LBound(a) To 【】 If key = a(i) Then Search = True 【】 End If Next iEnd FunctionPrivate Sub Form_Click()Dim x As Integer, k As Integer, num As IntegerDim b() As I

8、ntegernum = Int(Rnd * 10) + 1ReDim b(num)For i = 0 To num b(i) = Int(Rnd * 70) + 20 Print b(i);Next iPrintx = Val(InputBox(输入待查找数据)If Search(【】, x, k) ThenPrint x; 在数列中出现; k; 次Else Print x; 未在数列中出现End IfEnd Sub5、在文本框内输入一串字符后，统计并显示各字母出现的次数不区分大小写字母。Private Sub Command1_Click() Dim a(1 To 26) As Integer, c As String * 1【】 = Len(Te