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=;
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1