vb期中试题--分析

《vb期中试题--分析》由会员分享，可在线阅读，更多相关《vb期中试题--分析（7页珍藏版）》请在金锄头文库上搜索。

1、程序设计基础 VB期中考试卷分析一、选择题每小题 2分，共计 40分；1. 如果窗体上有命令按钮“确定” ，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮控件的名称属性和Caption属性分别为 【1】 。A.“OK”和“确定” B.“确定”和“OK”C.“Command1”和“确定” D.“Command1”和“OK”分析：控件的事件过程名是由“控件名_事件名”组成，因此“OK”是名称属性答案：A2. 以下所列的7个控件中，具有Caption属性的有 【2】 个。 CheckBox（复选框） 、ComboBox（组合框） 、HscrollBar（水平滚动条） 、Imag

2、e（图像框） 、Frame（框架） 、Label（标签） 、Line（线条） A5 B4 C3 D2分析：常用控件中，TextBox、PictureBox、Image、ListBox、ComboBox、Timer、Line、Shape、HScrollBar、VScrollBar没有Caption属性；Label、CommandButton、OptionButton、CheckBox、Frame具有Caption属性；另外，窗体也有Caption属性。答案：C3. 若需要在同一窗口内安排两组相互独立的单选按钮（ OptionButton ） ，可使用 【3】 控件将它们分隔开。 TextBox

3、Picture Image Frame 分析：将单选按钮分组的方法是放置在不同的容器中，VB中可以做容器的控件有：PictureBox、Frame答案：C4. DrawStyle属性用于设置图形方法输出的线型，它受 【4】 属性的限制。 AFillStyle BFillColor CBorderStyle DDrawWidth答案：D5. 窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示 【5】 。A.434 B.45678 C.溢出 D.语法错误分析：当“+”的左右两边操作数都是字符串型数

4、据时， “+”是字符串连接符；当“+”的左右两边操作数都是数值型数据时， “+”是算术运算符；当“+”的左右两边操作数不能转换成统一的数值型数据或字符串型数据时，出错。答案：B6. 假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是 【6】 。A. BOOL =TRUE B. BOOL =.TRUE.C. BOOL =#TRUE# D. BOOL = True答案：D7. 以下所列项目不属于窗体事件的是 【7】 。 A. Initialize B. SetFocus C. GotFocus D. LostFocus分析：SetFocus是方法，不是事件答案：B8. 设控件使用默认名称

5、，以下使用方法的语句中，正确的是 【8】 。A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear分析：窗体和PictureBox中清除用Print、Line、Circle方法画出的内容时，使用Cls方法；ListBox、ComboBox中清除所有列表项，使用Clear方法。答案：A9. 执行下面语句后，Len函数值最大的是 【9】 。 Dim IA As Integer, B As Single, S As String *5, Ch As String IA=32767 : B=23.5 : S=”A” :Ch=”abcd” AL

6、en(IA) BLen(B) CLen(S) DLen(Ch)分析：Len函数的参数决定了它的作用。1）括号中的参数是字符串类型时，Len函数的作用求字符串中字符的个数。本题中C和D就是这种情形，其中C中变量S是定长字符串，不管给它多少字符，实际存放始终是5个字符，所以C项的值是5，D项的值是4。2）括号中的参数不是字符串类型的变量时，Len函数的作用求该变量在内存中占的字节数。本题中A和B就是这种情形，所以A项的值是2，B项的值是4。答案：C10. 在下列控件中， 【10】 控件不能改变大小。ATextBox BLabel CFrame DTimer答案：D11. 在窗体上画一个名称为Tex

7、t1的文本框，然后画一个名称为H1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是 【11】 。A Private Sub H1_Change() BPrivate Sub H1_Click()Text1.Text=H1.Value Text1.Text=H1.ValueEnd Sub End SubC Private Sub H1_Change() DPrivate Sub H1_Click()Text1.Text= H1.Caption Text1.Text=H1.CaptionEnd Sub

8、 End Sub分析:从文字“如果移动滚动框”可以确定应该选择H1的Change事件， “滚动条的当前值”表示为：H1.Value答案：A12. 可以把变化长字符串S中的第一个ABC子串，替换成“1234的语句是 【12】 。A. S=Left(s, InStr(S,ABC)&1234 & Right(S,Len(S)-InStr(S,ABC)-2)B. Mid(S,InStr(S,ABC),3)=1234C. Mid(S,InStr(S,ABC),4)=1234D. S=Left(s, InStr(S,ABC)-1)&1234& Right(S,Len(S)-InStr(S,ABC)-2)分

9、析：若S=“ERABCTYABCUIABC” ，那么:A项的结果S为“ERA1234TYABCUIABC”B项的结果S为“ER123TYABCUIABC”C项的结果S为“ER1234YABCUIABC”D项的结果S为“ER1234TYABCUIABC”答案：D13. 在 Select Case X 结构中，描述判断条件 3 X 7 的测试项应该写成 【13】 。 ACase 3 = 3DCase 3 To 7分析：Case条件表达式中，使用Is关键字和关系运算符配合使用，不能使用逻辑运算符。Case 3 0ATrue BFalse C-1 D1分析：关系表达式的值是逻辑型True/False，

10、本题将X和Y的值代入，按语句执行的顺序，得出结果。答案：B20. 执行以下语句后，a的值为 【20】 。Dim a As Integera = 1Do Until a = 100a = a + 2LoopA99 B100 C溢出 D101分析：Until a=100，此循环的结束条件是a=100，但a的初值是1，步长是2，不可能得到值100，因此，循环一直进行下去，到达32767后继续循环，超过Integer型数据表示范围而溢出。答案：C二、填空题 每空 2分，共计 50分；1. 产生10,37之间的随机整数Visual Basic表达是 Int(Rnd*28+10)或Int(Rnd*28)+

11、10 。2. 对应的Visual Basic 表达式是 Exp(x2+Cos(x) 。xcos2e3. 在Visual Basic 中，日期/时间型常量要用 # 括起来。4. a6，则执行xIIf（a5，1，0）后，x的值为 -1 。5. 要显示如右图所示的信息提示框，应使用语句： 【25】 。MsgBox “恭喜你，登录成功！”,vbOkOnly+vbExclamation, “登录信息”或 MsgBox “恭喜你，登录成功！”, vbExclamation, “登录信息”或 MsgBox “恭喜你，登录成功！”, 48, “登录信息”6. 若窗体有列表框，则 List1.List(List

12、1.ListIndex)的值等于 List1的 Text 属性值。7. 有如下程序段，写出运行后的输出结果为 16 Private Sub command1_click()a = 1: b = 2: c = 3a= a + b: b = b + a: c = b + aIf a 3 Or b 3 Thena = b - a: b = c - a: c = b + aEnd IfPrint a + b + cEnd Sub8. 执行下面的程序，当单击 Command1时，列表框 List1的第 2列表项内容是 3 ，第 4列表项内容是 15 ，第 5列表项内容是 28 。 Private Sub

13、 Command1Click（） Dim i As Integer，j As Integer For i =1 To 10 j=I+j List1.AddItem j Next i For i =1 To 4 List1.RemoveItem List1.ListCount - i Next i End Sub9. 下面程序段共循环 0 次。a=100 : b=100While aba=a+1 : b=b+1Wend10. 下列程序段的执行结果为： BBABBA 。a = ABBACDDCBAFor i = 6 To 2 Step -2x = Mid(a, i, i)y = Left(a, i

14、)z = Right(a, i)z = x & y & zNext iPrint z11. 下面程序运行后，单击 Command1后屏幕显示是 4 7 。Private sub Command1_click()For I=1 to 4If I3 then exit forNext IFor j= 1 to 6Next jPrint I,jEnd sub12. 如下程序执行的结果是 11 10 1 16 。Private Sub Command1_Click()Dim a As Integer, b As Integer, i As Integera = 2: b = 10: c = 1For

15、i = c To 2 * b Step aa = a + 2i = i + 1c = 2 * cIf a = 10 Then Exit Forb = b - 3Next iPrint i, a, b, cEnd Sub13. 下面程序运行后输出的结果是 *$*$ 。Private Sub Cmd_Click()Dim a As String,b As String,x As String,i As Integera=”*” : b=”$”For i=1 To 4If i mod 2=0 Then x=String(len(a)+i,b)Elsex=String(len(a)+i,a)End IfPrint x;Next iEnd Sub14. 以下程序实现将字符将字符串倒置，例如：输入”ABCD”变换成”DC