大二上学习期末复习题

1、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：True C：-1a=cor2*acB：false D：14：执行语句s=Len（“ A：10C：6VB 程序设计”）后，s 的值是（C）B：12D：15，下列不属于 Text 文本框的属性的是（D）A：name C：Text6：若要求输入B：caption

2、 D：Min时，文本框显示“#”，则使用的语句为（C）A：Text1.Text=”#” C：password char=”#”B：Text1.charge=”#”7：下面的语句所定义的数组的元素个数是（D）Dim A（-3 To5）As A：6C：8egerB；7 D；98：使文本框获得焦点的方法是（C）A: chargeC:SetFocusB:GotFocusD；LostFocus9：设a=6，则执行 x=IIf（a5,-1,0）后，x 的值为（D）A；5B：6C：0D：-110：过程中，数组以传值方式传递的关键字是（C）A：ByRef B：ByWayC：ByVal11:函数 string（

3、2，”AB”）的返回值是（B）A：BBB：AAC：ABD: BA12:执行以下语句后，窗体上显示的是（D） a=9.8596PrFormat（a，”$00,00.00”）A：$00,09.86B:$9.86C:9.26D:$0,009.8613:删除列表框指定的项目使用的方法是（B）A：moveB：removeItemC:clearD:remove14：与传统的程序设计语言相比，VB 最突出的特点是（C）A、结构化程序设计 C、事件驱动编程机制B、程序开发环境 D、程序调试技术15：确定一个窗体或控件的大小的属性是（ B）A、Width 或 HeightB、Width 和 HeightC、To

4、p 或 LeftD、Top 和 Left16：下列可作为 VB 变量名的是（B）A：4*taB：AlphaC：4ABCD：AB17.以下程序输出的结果是（B） x = 1y = 4Do Until y 4 x = x * yy = y + 1 LoopPrxA：1B： 4C：8D：2018.下列程序输出的结果是（D） Option Base 1Private SubDim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1 s = s + a(i) * jj = j * 10 Next id1_Click()PrsEnd SubA：4321B：1

5、2二：填空题C：34D：12341. VB 面象的三要素是 属性、事件、方法。2. 工程文件的扩展名为 .vbp ,窗体文件的扩展名为 .frm3. 有一个名为Pic2.gif 的图形文件，将它装入一个框，应执行的语句是：Picture1.picture=Loicture(“pic2.gif”)4. 计时器之间的间隔通过erval 属性控制。5. 整型数包括 整数 和 长整数。6. A=“42315”，则 Val（Left（A，4）+Mid（A，412）的返回值为 4246。三：填空题1. 设有以下程序x = 1Do Until x17 或x max Then max = bn = 二 End

6、 IfIf c max Then max = cn = 三 End IfMsgBox 三个数是： & a & , & b & , & c & vbCrLf & 最大的数是第 & n & 个： & maxEnd SubNdf求 zhongjianzhi Private Sub Form_Click()Dim a(3) AsegerDim i AsegerFor i = 1 To 3a(i) = InputBox() Next iIf a(2) a(1) Thent = a(1) a(1) = a(2)a(2) = t End IfIf a(2) a(3) Then m = a(2)ElseIf

7、a(1) a(3) Thenm = a(3)Elsem = a(1) End If PrmEnd Sub四：读程序写结果1.x = 10y = 40Do Until y 40 x = x * yy = y + 1LoopPrx该过程输出的结果为 400数组的传递Option Base 1Private Sub Form_Click() a = Array(1, 2, 3, 4)j = 1For i = 1 To 3 s = s + a(i) * j j = j * 2Next i Pr sEnd Sub该方程输出的结果为 17函数调用For i = 1 To 3 s = s + f(3 + i

8、) Next iFunction f(x AsIf x = 5 Theneger)T = x + 1ElseT = x + 2End If f = TEnd Functions该程序的输出结果为 19Pr五.1.打折问题 Option ExplicitPrivate SubDim a As Long Dim s As Longd1_Click()a = Val(InputBox(输入商品价格)If a = 1000 And a = 2000 And a 3000 Then s = a * 0.8Elses = a * 0.9 End If Text1.Text = sEnd SubPrivat

9、e Sub Form_Load()Label1.Caption = 商品打折后价格 d1.Caption = 输入商品价格End Sub2.Option ExplicitPrivate SubDim a(9) As Dim s As Dim n Asd1_Click()egereger egerDim i AsegerFor i = 0 To 9a(i) = Val(InputBox(输入数据)Next i n = a(0)For i = 0 To 9If a(i) = 60 Then s = s + 1Elsed = d + 1 End Ifk = k + a(i) Next i Text1

10、.Text = s Text2.Text = d Text3.Text = kEnd SubPrivate Sub Form_Load()d1.Caption = 输入学生成绩 Label1.Caption = 及格人数Label2.Caption = 不及格人数 Label3.Caption = 学生总成绩 End Sub4.Option ExplicitPrivate SubDim a(4) As Dim s Asd1_Click()egeregerDim i AsDim t AsegeregerFor i = 0 To 4a(i) = Val(InputBox(输入数据) Next iF

11、or s = 1 To 4For i = 1 To 4If a(i) a(i - 1) Thent = a(i - 1) a(i - 1) = a(i) a(i) = tEnd If Next i Next sPr由大到小排列For i = 0 To 4PrNext ia(i);End SubPrivate Sub Form_Load()d1.Caption = 输入数据End Sub五1.Private Sub Dim a As Long Dim s As Longd1_Click()Dim i Asegera = Val(InputBox(输入数据)For i = 1 To a s = s + iNext iPrsEnd SubPrivate Sub Form_Load()End Sub2.Private SubDim i Asd1_Click()egerDim a As LongDim s As Long s = 1n = Val(InputBox(输入数据)For i = 1 To n s = s * iNext iPrsEnd Sub3.Private Sub Dim n Asd1_Click()egerDim s As LongDim i AsegerDim a As Longs = 1n = Val(InputBox(输入数据)For i