《VisualBasic程序设计》综合练习题(二)及答案.doc

Visual Basic程序设计综合练习题（二）及答案一、单项选择1键盘事件的执行顺序是（B）AKeyPress、KeyDown、KeyUp BKeyDown、KeyPress、KeyUpCKeyUp、KeyDown、KeyPress DKeyUp、KeyPress、KeyDown 2当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（ C ）。AHelp BF10 CF1 D Esc3下列对象不能响应 Click事件的是（ D ） A、列表框 B、图片框 C、窗体 D、计时器4在Visual Basic中，变量的默认类型是（ B ）。AInteger B VariantCDouble DCurrency 5WinsockServer.LocalPort=10001语句的含义是（ A ）。A设置侦听端口 B设置计算机IP地址 C设置中断地址 D设置通信协议6要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ B ）属性设置就有效。AMaxButton BBorderSyle CWidth DMinButton7如果想让文本框中的内容在运行时不能编辑，需将文本框的（ C ）属性设置为True。 ATabStop BMultiLine CLocked DVisible 8要设置命令按钮的背景图形，必须设置的两个属性是（ D ）。AValue和Icon BStyle和IconCCaption和Picture DStyle和Picture9在Visual Basic中，变量的默认类型是（D ）。 AInteger BDouble CCurrency DVariant10如下数组声明语句，正确的是（D）。ADim a3,4 As Integer BDim a(3 4) As IntegerCDim a(n,n) As Integer DDim a(3,4) As Integer 11表达式7+10 Mod 3*2+2（A ）。A13 B7 C6 D112不属于VB数据库引擎的是（B）。AODBC BBDECJet引擎 DOLE DB13数学式子Sin25写成VB表达式是（ D ）。ASin25 BSin（25） CSIN（25） DSin（25*3.14/180）14VB程序中设置断点的按键是（B）。AF1键BF9键 CF8键 DCtrl+F8键15Dim I As Integer，则运行时变量I的初始值是（A）。A0 B1 C-1 D空值二、填空题16定时器（Timer）控件可识别的事件是 Timer ，发生该事件的时间间隔由定时器的 Interval 属性设置。17一般可使用 Const 关键字声明常量。18全局变量在整个应用程序中有效，一般在标准模块中使用 Public 语句声明。19一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示工程 文件；扩展名为.frm的文件表示 窗体 文件；扩展名为.bas的文件表示 标准模块 文件；包含ActiveX控件的文件扩展名为 .OCX 。20Dim i As Integer，则运行时变量i的初始值是 0 。21数学关系8x30表示成正确的VB表达式为 8=x AND x30 。22Winsock控件主要用来编制 TCP/IP 或 UDP 协议的通话程序。23. 如果Winsock1.LocaPort=0,那么应用程序将 使用随机端口 。三、阅读程序题 24. Function F(a As Integer) b =3 Static c b = b + 1 c = c + 1 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。24.答案：78925. 阅读下面的程序，写出单击窗体后的运行结果。Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a, bEnd Sub25.答案：4 33 4四、应用题26. 设计一个计算程序，该程序用户界面如图所示，由四个文本框：Text1、 Text2、 Text3、 Text 4和三个按钮：Command 1、Command 2、Command 3组成，程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩，单击退出按钮则退出。 Private Sub Command1_Click() Text1.Text = 1 1 Text2.2 = 2 3.Text = 3 End Sub Private Sub Command2_Click() If Text1.4= OR Text2.Text=5 OR Text3.text= Then 4 MsgBox 成绩输入不全！ 5 Else Text4.Text=(6+Val(Text2.Text) 6 +Val(Text3.Text)/7 7 End8 8 End Sub Privat