Vb期末考试题.doc

VB期末考试一：选择题1. Visual Basic窗体设计器的主要功能是（A）A：建立用户界面 B：编辑源程序代码C：画图 D：显示文字2:为了把窗体上的某个控件变为活动的，应该执行的操作是（B） A：单击窗体的边框 B：单击该控件内部 C：双击该控件 D：双击窗体3：设a=3，b=4，c=5，d=5，下列表达式的值是（A） a2 and a=c or 2*ac A：True B：false C：-1 D：14：执行语句s=Len（“VB程序设计”）后，s的值是（C） A：10 B：12 C：6 D：15，下列不属于Text文本框的属性的是（D） A：name B：caption C：Text D：Min6：若要求输入密码时，文本框显示“#”，则使用的语句为（C） A：Text1.Text=”#” B：Text1.charge=”#” C：password char=”#” 7：下面的语句所定义的数组的元素个数是（D） Dim A（-3 To5）As Integer A：6 B；7 C：8 D；98：使文本框获得焦点的方法是（C） A: charge B:GotFocus C:SetFocus D；LostFocus9：设a=6，则执行 x=IIf（a5,-1,0）后，x的值为（D） A；5 B：6 C：0 D：-110：过程中，数组以传值方式传递的关键字是（C） A：ByRef B：ByWay C：ByVal11:函数string（2，”AB”）的返回值是（B） A：BB B：AA C：AB D: BA12:执行以下语句后，窗体上显示的是（D） a=9.8596 Print Format（a，”$00,00.00”）A：$00,09.86 B:$9.86 C:9.26 D:$0,009.8613:删除列表框指定的项目使用的方法是（B） A：move B：removeItem C:clear D:remove14：与传统的程序设计语言相比，VB最突出的特点是（C） A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术15：确定一个窗体或控件的大小的属性是（B）A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left16：下列可作为VB变量名的是（B） A：4*Doita B：Alpha C：4ABC D：AB17.以下程序输出的结果是（B）x = 1y = 4Do Until y 4x = x * yy = y + 1LoopPrint x A：1 B： 4 C：8 D：2018.下列程序输出的结果是（D）Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub A：4321 B：12 C：34 D：1234二：填空题1. VB面向对象的三要素是 属性、事件、方法。2. 工程文件的扩展名为 .vbp ,窗体文件的扩展名为 .frm3. 有一个名为Pic2.gif的图形文件，将它装入一个图片框，应执行的语句是：Picture1.picture=Loadpicture(“pic2.gif”)4. 计时器之间的间隔通过Interval属性控制。5. 整型数包括 整数 和 长整数。6. A=“42315”，则Val（Left（A，4）+Mid（A，412）的返回值为 4246。三：填空题1. 设有以下程序 x = 1Do Until x17 或x max Thenmax = bn = 二End IfIf c max Thenmax = cn = 三End IfMsgBox 三个数是： & a & , & b & , & c & vbCrLf & 最大的数是第 & n & 个： & maxEnd SubNdf求zhongjianzhiPrivate Sub Form_Click()Dim a(3) As IntegerDim i As IntegerFor i = 1 To 3a(i) = InputBox()Next iIf a(2) a(1) Thent = a(1)a(1) = a(2)a(2) = tEnd IfIf a(2) a(3) Thenm = a(2)ElseIf a(1) a(3) Thenm = a(3)Elsem = a(1)End IfPrint mEnd Sub四：读程序写结果1.x = 10y = 40Do Until y 40x = x * yy = y + 1LoopPrint x该过程输出的结果为4002. 数组的传递Option Base 1Private Sub Form_Click()a = Array(1, 2, 3, 4)j = 1For i = 1 To 3s = s + a(i) * jj = j * 2Next iPrint sEnd Sub该方程输出的结果为173. 函数调用For i = 1 To 3s = s + f(3 + i)Next iFunction f(x As Integer)If x = 5 ThenT = x + 1ElseT = x + 2End Iff = TEnd FunctionPrint s 该程序的输出结果为19五.1.打折问题Option ExplicitPrivate Sub Command1_Click()Dim a As LongDim s As Long a = Val(InputBox(输入商品价格)If a = 1000 And a = 2000 And a 3000 Then s = a * 0.8Else s = a * 0.9End If Text1.Text = s End SubPrivate Sub Form_Load()Label1.Caption = 商品打折后价格Command1.Caption = 输入商品价格End Sub2.Option ExplicitPrivate Sub Command1_Click()Dim a(9) As IntegerDim s As IntegerDim n As IntegerDim i As IntegerFor i = 0 To 9 a(i) = Val(InputBox(输入数据)Next in = a(0)For i = 0 To 9 If a(i) = 60 Then s = s + 1 Else d = d + 1 End If k = k + a(i) Next i Text1.Text = s Text2.Text = d Text3.Text = kEnd SubPrivate Sub Form_Load()Command1.Caption = 输入学生成绩Label1.Caption = 及格人数Label2.Caption = 不及格人数Label3.Caption = 学生总成绩End Sub4.Option ExplicitPrivate Sub Command1_Click()Dim a(4) As IntegerDim s As IntegerDim i As IntegerDim t As Integer For i = 0 To 4 a(i) = Val(InputBox(输入数据) Next i For s = 1 To 4 For i = 1 To 4 If a(i) a(i - 1) Then t = a(i - 1) a(i - 1) = a(i) a(i) = t End If Next i Next s Print 由大到小排列 For i = 0 To 4 Print a(i); Next iEnd SubPrivate Sub Form_Load()Command1.Caption = 输入数据End Sub五1.Private Sub Command1_Click()Dim a As LongDim s As LongDim i As Integera = Val(InputBox(输入数据)For i = 1 To as = s + iNext iPrint sEnd SubPrivate Sub Form_Load()End Sub2.Private Sub Command1_Click()Dim i As IntegerDim a As LongDim s As Longs = 1n = Val(InputBox(输入数据)For i = 1 To ns = s * iNext iPrint sEnd Sub3.Private Sub Command1_Click()Dim n As IntegerDim s As LongDim i As IntegerDim a As Longs = 1n = Val(InputBox(输入数据)For i = 1 To ns = s * ia =