天大VB模拟试卷2010.doc

一、选择题(1) 以下选项中，不是 Visual Basic 6.0控件的是()。正确区分控件、事件名A) 标签框 B) 文本框 C) 命令按钮 D) 窗体(2) Label控件的（）属性设置其标题的内容。A）AutoSize B）Font C）Name D）Caption(3) List控件的()属性表示选中项目的下标值。A）List B）ListIndex C）ListCount D）Sort(4)滚动条控件的LargeChange属性所设置的是（）A）单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量B）滚动条中滚动块的最大移动位置C）滚动条中滚动块的最大移动范围D）滚动条控件无该属性(5) 以下选项中，不是 Visual Basic 6.0外部程序文件扩展名的是()。A) .Frm B) .Vbp C).Bas D) .Txt(6) 数学式子（2a+b）/(4ab)在VB中的正确写法是（）（A） A） (2*a+b)/(4*a*b) B） (2*a+b)/(4ab) C） (2*a+b)/4*a*b D） (2a+b)/(4ab) (7) 在VB中，常量35.24# 的数据类型是()。A) 整型 B) 单精度实型 C) 双精度型 D) 长整型(8)设A = True , B = False , C = False , 逻辑表达式(A Or B) And C与A Or Not B的值是()。 A) True 与 False B) False 与 True C) True 与 True D) False 与 False(9)当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是（）。 A)MousePicture B)StyleC)DownPicture D)DisabledPicture (10) 以下叙述中错误的是（）。A）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置(11) 使窗体、图片框或图像框装入图形使用的函数是()。A）Pictureload B）loadPicture C）Imageload D）loadImage(12) 判断x是否在区间（a, b上，在VB中以哪个逻辑表达式是正确的是（）（C） A） ax=b B） ax And xb C） ax And xx And x=b(13) 以下能够触发文本框Change事件的操作是()。A)文本框失去焦点 B)文本框获得焦点C)设置文本框的焦点 D)改变文本框的内容 (14)在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）。 A)， B)； C)、 D)：(15) 在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click() Dim b As Integer b = b + 1 print bEnd Sub运行程序，三次单击命令按钮后，输出是（）。A) 0 0 0 B) 1 1 1 C) 1 2 3 D) 0 1 2(16) 以下变量名中，不符合Visual Basic的命名规范的是（）。A) _mnu_Open_234 B) price_ C) abc D) a (17) （）控件可以对窗体中的控件进行分组。A）Label B）TextBox C）Frame D）CheckBox(18) 为了把焦点移到某个指定的控件，所使用的方法是()。A) GetFocus B) Refresh C) SetFocus D) Visible(19) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是()。A) Form1.Name=VisualBasic窗体 B) Form1.Title=VisualBasic窗体C) Form1.Caption=VisualBasic窗体 D) Form1.Text=VisualBasic窗体”(20) 可以删除字符前导空白的函数是（）。A）Ltrim B）Rtrim C）Trim D）Mid（21）表达式FIX(-23.87)+INT(24.56)的值为()。A) -1 B) 0 C) 1 D) 2二 阅读程序或程序，写出运行结果有如下程序Private Sub Command1_Click() Text2.Text = Text1.TextEnd SubPrivate Sub Form_Load() Text1.PasswordChar = &End Sub运行程序时在Text1中输入“123456”后，单击Command1，Text1显示 。Text2显示 。有如下程序Private Sub Command1_Click() a=”B” Call p1(a,2) Call p1(*, 4)End SubPrivate Sub p1(ch1, n) Dim i% For i = n To 1 Step -1 For j = 1 To i Print ch1; Next j Print Next iEnd Sub运行后输出结果是 。Private Sub form_Click() k = F For i = 0 To 5 t = t + Chr(Asc(k) + i) Next i Print tEnd Sub运行后输出结果是 。FGHIJK在窗体上有一个名称为Command1的命令按钮和如下事件过程Private Sub Command1_Click() For I = 1 To 10 If I Mod 3 0 Then m = m + I 3 End If Next I Print mEnd Sub程序运行后，单击命令按钮，窗体显示的内容是 。9有如下程序Private Sub Form_Click() X = -1: Y =- 1 For J = 1 To 3 X = X - Y: Y = Y + X Next J Print X; YEnd Sub运行后输出结果是 。1 1有如下程序Private Sub Text1_LostFocus() Text2.Text = LCase(Text1.Text)End Sub运行程序时在Text1中输入“abc123”后，单击Text2，Text2显示 。有如下程序Private Sub Command1_Click() a = 300 B = 20 a = a + B B = a - B a = a - B Print BEnd Sub运行后，输出的结果是 。300有如下程序Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = Text1.Text For i = 1 To Len(str1) C = Mid(str1, i, 1) str2 = C & str2 Next i Text2.Text = str2End Sub程序运行时，在Text1 中输入XYZ123，单击Command1，在Text2显示 。321ZYX三 填空题 请将每一个空的正确答案填在横线上. 1给定程序的功能是：计算并输出下列级数的前N项之和S公式如下：S=1+1/（1+2）+1/（1+2+3）+1/（1+2+3+n）Private Sub Form_Click() Dim n%, S!, i%, Temp% n = InputBox(n=?) Temp = 0 : S = 0 For i = 1 To _ Temp = _ S = _ Next i Print S=; SEnd Sub2给定程序的功能是：根据m计算y，计算公式如下：例如，若m中的值为5，则应输出1.463611。Private Sub Form_Click() Dim m%, y!, i% m = InputBox(m=?) y = _ For i = 2 To _ y = _ Next i Print y=; y End Sub 3给定程序其功能是单击命令按钮Command1时使文本框的字符串循环移动1位，文本框Text1的字符串是“ABCDEF”如下图所示，第1次单击命令按钮后文本框Text1的字符串变为“FABCDE”，第2次单击命令按钮后文本框Text1的字符串变为“EFABCD”，依次类推，在画线处填入适当内容, 将程序补充完整。Private Sub Command1_Click() Call _End SubPrivate Sub s1() Dim str1$, A1$, A2$ str1 =_ A2 = _ A1 = _Text1.Text = A1 & A2End Sub4Dim a%(1 To 100)Private Sub Command1_Click() Dim i%, Sum1%, Aver1, Max1%, Min1% Sum1 = 0 Max1 = 10 Min1 = 99 For i = 1 To 100 a(i) = Int(Rnd * 90) + 10 Text2.Text = Text2.Text + Str(a(i) If i Mod 10 = 0 Then Text2 = Text2 +_ Sum1 = Sum1 + a(i) If a(i) Max1 Then _ If a(i) Min1 Then _ Next i Aver1 = Sum1 / 100 Text3.Text = Aver1 Text4 = Max1 Text5