Visual-Basic程序设计综合练习题一及答案.docx

Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1无论何种控件，共同具有的属性是（ ）。A Text 属性 B Caption属性C Name属性 D Autosize属性2当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（ ）。AHelp BF10 CF1 D Esc3为了保存一个Visual Basic应用程序，下列说法正确的是（ ）。A只保存窗体文件（.frm） B只保存工程文件（.vbp）C分别保存工程文件和标准模块文件(.bas) D分别保存工程文件、窗体文件和标准模块文件 4在Visual Basic中，变量的默认类型是（ ）。AInteger B VariantCDouble DCurrency 5Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）。AInterval=0或Enabled=False BInterval=0或Visible=False CEnabled=False 或Enabled=0 DInterval=0且Enabled=False6要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。AMaxButton BBorderSyle CWidth DMinButton7有程序代码如下：Text1.Text = Visual Basic，则Text1，Text ，和Visual Basic分别代表（ ）。A对象，值，属性 B对象，方法，属性C对象，属性，值 D属性，对象，值 8要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AValue和Icon BStyle和IconCCaption和Picture DStyle和Picture9在VB中，下列合法的变量名是（ ）。A4ab B a-b Ca_4 Dinteger10如下数组声明语句，正确的是（）。ADim a3,4 As Integer BDim a(3 4) As IntegerCDim a(n,n) As Integer DDim a(3,4) As Integer 11要在窗体Form1内显示“欢迎您！”，使用的语句是（ ）。AForm.caption=欢迎您! BForm1.caption=欢迎您!CForm1.print 欢迎您! DForm. print 欢迎您!12不属于VB数据库引擎的是（）。AODBC BBDECJet引擎 DOLE DB13数学式子Sin25写成VB表达式是（ ）。ASin25 BSin（25） CSIN（25） DSin（25*3.14/180）14使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ ）。AExecute BCommandTypeCOpen DActiveConnection15要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（ ）。AOpen Test.doc For Output As #1 BOpen D: Test.doc For Input As #1COpen D: Test.doc For Output As #1 DOpen Test.doc For Input As #1 二、填空题（每空2分 共20分）16定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。17Visual Basic程序开发有三种模式，即设计模式、中断模式和 模式。18全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。19在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 循环。20Dim i As Integer，则运行时变量i的初始值是 。21在VB中，将Access称为本地数据库，SQL Server称为 。22Winsock控件主要用来编制 或 协议的通话程序。23在VB中想要设置断点需要按 键。三、阅读程序题（每题10分，共20分）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写出程序运行时，单击命令按钮在窗体上的输出结果。25. Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 3c = 4For j = 1 To 5 If j 3 Then c = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，c,k的值分别是：四、应用题（15分）26. 请根据以下描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品的总金额，单击命令按钮，在Text2输出优惠价。程序运行结果如图所示。参考答案一、单项选择（每小题3分，共45分）1.C 2.C 3.D 4.B 5.A 6.B 7.C 8.D 9.C 10.D 11C 12B 13D 14D 15B 二、填空题（在空格内填写正确的答案，每空2分，共20分）16Timer Interval17执行18Public19ForNext20021远程数据库22TCP/IP UDP23. F9三、简答题（每题10分，共20分） 24.答案：78925.答案：9 6四、应用题（15分）26.参考答案答案1：Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Is = 500 Text2.Text = x * 0.7 Case Is = 300 Text2.Text = x * 0.8 Case Is = 200 Text2.Text = x * 0.9 Case Is = 100 Text2.Text = x * 0.95 Case Is 100 Text2.Text = x End SelectEnd Sub答案2：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then y = x Else If