VB自我练习1.docx

1、VB自我练习109级期末考试（A）一、单项选择题（1分/小题，共10分）1、语句PRINTSGN(-26)=;SGN(-26)的输出结果为( ). （A）SGN(-26)=26 （B）SGN(-26)=-26（C）SGN(-26)=+1（D）SGN(-26)=-12、VB应用程序保存在磁盘上,至少会有以( )为扩展名两个文件. （A）.DOC和.TXT （B）.COM和.EXE （C）.VBW和.BAS （D）.VBP和.FRM3、组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为( ). （A）0 （B）1 （C）2 （D）34、Int(198.555*1

2、00+0.5)/100的值( ). （A）198 （B）199.6 （C）198.56 （D）2005、若要访问组合框Comb1中被用户选中的表项，应使用（ ） （A）Comb1.Text （B）Comb1.List （C）Comb1.ListIndex （D）Comb1.ListCount6、下列各项变量中,哪一项所占的内存空间最多( ). （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 d=1898/09/127、清除列表框的所有

3、选项应选择下列哪种方法( ). （A）Clear （B）Cls （C）ClearItem （D）RemoveItem8、如果在窗体上已经创建了一个文本框对象Text1,可以通过( )事件获得输入键值的ASCII码. （A）Change （B）LostFocus （C）KeyPress （D）GotFocus9、以下不属于VisualBasic系统的文件类型是( ). （A）.frm （B）.bat （C）.vbg （D）.vbp10、控件是( ). （A）建立对象的工具 （B）设置对象属性的工具（C）编写程序的编辑器 （D）建立图形界面的编辑窗口二、程序阅读（3分/题，共45分）1、在窗体上画

4、一个名称为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.Enabled = FalseEnd SubPrivate Sub

5、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 = jishu1(2#, 0.000001) 【】 jishu2(f2, 2#

6、, 0.000001) Print f1=; f1, f2 = ; f2End Sub3、用输入对话框输入x，根据如图公式计算对应的y，在窗体上输出y的值。Option ExplictPrivate Sub Command1_Click() Dim x As Single 【】 x = Val(【】(Please input x :, 输入X的值) If x = 10 Then 【】 ElseIf x 10 Then y = 【】 Else y = 2 * x 3 + 6 End If Print yEnd Sub4、以下程序段实现的功能是：查找一数列中是否存在某数字x，若数列中存在该数字，则

7、输出其出现的次数，否则输出不存在信息。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 Integernum = Int(Rnd * 10)

8、+ 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【】 = L

9、en(Text1) For I = 1 To k c = 【】(Mid(Text1, I, 1) If c = a And c 0 Then Picture1.Print ; Chr(j + 96); =; a(j); End If Next j End Sub四、程序改错题（每个错误点3分，共15分）有一程序其功能为：单击“生成”按钮后，利用随机函数产生10个（1100）之间的随机整数并输出在LIST1中，单击“计算”按钮，在窗体上打印其中能被5整除的数并求它们的和。程序中有5个错误，在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。错误源代码：Option Base 1D

10、im x(10) As IntegerPrivate Sub Command1_Click()List1.RemoveFor i = 1 To 10x(i) =List1.AddItem x(i);Next iEnd SubPrivate Sub Command2_Click()Dim sum As Integersum = 0For i = 1 To 10If ThenPrint x(i)sum = sum + x(i)Next iPrint sum=; sumEnd Sub一、 单项选择题（1分/小题，共10分）1、D2、D3、C4、 C5、 D6、C7、A8、C9、 B10、A二、程序阅

11、读（3分/题，共45分）26、D27、D28、B29、 A30、 B31、B32、B33、D34、C35、 B36、C37、C38、C39、 C40、C三、程序填空（2分/空，30分）1、（1）sum = 0、（2）a(i, k) * b(k, j)、（3）sum2、（1）jishu1 = s、（2）call3、（1）y、（2）InputBox、（3）y = 0、（4）+ Sin(x)4、（1）UBound(a)、（2）n=n+1、（3）b()5、(1)k、（2）Lcase、（3）97四、程序改错题（每个错误点3分，共15分）Option Base 1Dim x(10) As IntegerP

12、rivate Sub Command1_Click()List1.Remove（）修改为：list1.clear For i = 1 To 10x(i) = ()修改为：x(i) = Int(Rnd * 100 + 1)List1.AddItem x(i);（）修改为：List1.AddItem x(i)Next iEnd SubPrivate Sub Command2_Click()Dim sum As Integersum = 0For i = 1 To 10If Then（）修改为：If x(i) Mod 5 = 0 ThenPrint x(i)sum = sum + x(i)（）修改为

13、：End IfNext iPrint sum=; sumEnd Sub09级期末考试（B）一、单项选择题（1分/小题，共10分）1、标签的()属性设置为True时,标签控件的大小随标题文字自动调整.（A）AutoSize（B）Caption（C）Alignment（D）BackStyle2、CLS可清除窗体或图形框中的内容是（ ）（A）Picture属性设置的背景图案 （B）在设计时放置的控件（C）程序运行时产生的图形和文字 （D）以上AC全部3、RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0255之间的整数.若使用三个滚动条

14、分别输入三种基色,为保证输入数值有效,则应设置( )属性.（A）Max和Min （B）Smallchange和 LargeChange（C）Scroll和Change （D）Value4、要定义一个变量为全局变量,应使用( )关键字.（A）Static（B）Public（C）Private（D）Sub5、下列程序段的运行结果（ ） Private Sub Form_Click() Dim Msg Hide Msg=选择确定按钮 MsgBox Msg Show End Sub（A）隐藏窗体,按确定按钮使窗体重现（B）隐藏窗体（C）显示窗体,按确定按钮使窗体隐藏（D）显示窗体6、在窗体上添加一个命

15、令按钮，编写如下代码：Private Sub Command1_Click Dim Arr1(10) as Integer ,Arr2(10) As Integer N=3 For i=1 to 5 Arr1(i)=i Arr2(n)=2*n+i Next i Print Arr2(n), Arr1(n)End Sub程序运行后，单击命令按钮，输出结果是（ ）（A）11 3（B）3 11（C）13 3 (D)3 137、假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是( ).（A）BOOLVAR=TRUE （B）BOOLVAR=.TRUE.（C）BOOLVAR=#TRUE# （D

16、）BOOLVAR=348、执行下面程序段后,变量a的值为（ ）. For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I（A）3（B）9（C）14（D）219、下面选项中( )是算术运算符.（A）%（B）And（C）&（D）Mod10、以下正确的描述是:在Visual Basic 应用程序中（ ）（A）过程的定义可以嵌套,但过程的调用不能嵌套（B）过程的定义不可以嵌套,但过程的调用能嵌套（C）过程的定义过程的调用均可以嵌套（D）过程的定义过程的调用均不可以嵌套三、程序填空（2分/空，30分）1、下面的程序用冒泡法将数组

17、a中的10个整数按从小到大排列，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim aa = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83)For i = 10 To 2 Step -1For 【】 If 【】 Thena1 = a(j + 1)a(j + 1) = a(j)a(j) = a1End IfNext j 【】 For i = 1 To 10Print a(i)Next iEnd Sub2、程序运行结果如图所示，请将程序补充完整。Private Sub Form_Click() Di

18、m I As Integer, j As Integer Dim star As String star = For I = 1 To 6 Form1.Print Tab(14 - I * 2); For j = 1 To 【】 Form1.Print star; Next j Form1.Print Next I For I = 1 To 5 Form1.Print Tab(【】); For j = 1 To (6 - I) * 2 【】 Form1.Print star; Next j Form1.Print Next IEnd Sub3、本程序功能为，单击窗体，Form1的输出结果为 A1=10 B1=20 A2=20 B2=10Public Sub Swap1【】 x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubPublic Sub Swap2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 【】 a, b Form1.Print A1=;