《VisualBasic程序设计》试题1.doc

《《VisualBasic程序设计》试题1.doc》由会员分享，可在线阅读，更多相关《《VisualBasic程序设计》试题1.doc（27页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVisualBasic程序设计试题1试卷制作顺序及要求Visual Basic程序设计模拟试题（一）及答案一、单项选择题(每小题3分，共30分)1后缀为.bas的文件表示（ ）。A类模块文件 B标准类模块文件C窗体文件 D窗体二进制数据文件2在文本框中将Text的内容全部显示为所定义的字符的属性是（ ）。APassword BPasswordChar CCaption

2、 DText3以下有关Visual Basic语言描述中错误的是（ ）。A不区分大小写B语句是一行一句，以回车键结束C用“,”分隔一行中的多个语句D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行4在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（ ）。A设计模式 B中断模式C执行模式 D编写代码模式5如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。 ATabStop BMultiLine CLocked DVisible6在Visual Basic中，变量的默认类型是（ ）。 AInteger BDouble CCurren

3、cy DVariant 7. 文本框没有（ ）属性。AText BName CCaption DBorderStyle8表达式7+10 Mod 3*2+2（ ）。A13 B7 C6 D19VB程序中设置断点的按键是（）。AF1键 BF9键 CF8键 DCtrl+F8键10Dim I As Integer，则运行时变量I的初始值是（）。A0 B1 C-1 D空值二、填空题：（每空3分，共30分）1在VB中，将数据库分为本地数据库、 和 三种类型。2. 执行赋值语句a=”123”+”456”后，变量a的值是 。3用Dim A(3,-2 To 3)语句声明二维数组后，数组A的元素共有 个。4Wins

4、ock控件主要用来编制基于 或 协议的网络应用程序。5控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。6一般可使用 关键字声明常量。7. VB中的程序错误类型主要有编译错误、实时错误和 等三种。三、阅读程序题（每题10分，共20分）1.（10分）Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = x + y Form1.Print x=; x, y=; yEnd Sub程序运行后三次单击窗体，写出Form1上的输出结果。2.（10分）Private Sub Command1_Clic

5、k() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For I = 1 To 3 For j = 1 To I Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2Next IPrint Sum1End Sub程序运行时单击Command1后，窗体Form1上的输出结果是 。得 分评卷人四、完善程序题（共10分）1.已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students

6、表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图1所示。图1程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()Dim strDB As String 连接SQL Server数据库strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 学生If ADOcn Is No

7、thing Then 1 = New ConnectionADOcn.Open 2 End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs As New RecordsetADOrs. 3 =ADOcnADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not 4 ThenMsgBox “你输入的学号已存在，不能新增加！”ElseStrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrS

8、QL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 5 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub五、编写程序题（共10分）1.请根据以下描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者，按七折优惠。在窗体上添加两个文本框

9、和一个命令按钮，要求在Text1中输入购物商品的总金额，单击命令按钮，在Text2输出优惠价。程序运行结果如图2所示。图2Visual Basic程序设计（一）参考答案及评分标准一单项填空题 （每题3分，共30分）答案：1D 2B 3C 4D 5C 6D 7C 8A 9B 10A二填空题：（每空3分，共30分）1外部数据库 远程数据库21234563244TCP/IP UDP5Name Index6Const7逻辑错误三、阅读程序题（每题10分，共20分）1（10分）答案：x= 2 y= 2 x= 2 y= 4x= 2 y= 6 2（10分）答案：31四、完善程序题（共10分）答案：（每项2分

10、，共10分）1 Set ADOcn2 strDB 3 ActiveConnection 4 ADOrs.EOF5 strSQL五编写程序题：（共10分）1（参考答案）答案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 1

11、00 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 x 200 Then y = 0.95 * x Else If x 300 Then y = 0.9 * x Else If x 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Text = yEnd SubVisual Basic程序设计试题 第6页 共6页-