《VisualBasic程序设计》试题1

1、Visualc 序设计模拟试题（一）及答案一、单项选择题(每小题 3 分，共 30 分)后缀.bas 的文件表示（。类模块文件B标准类模块文件C窗体文件D窗体二进制数据文件在文本框中将Text 的内容全部显示为所定义的字符的属性是（。PasswordBPasswordCharCCaptionDText以下有关Visual Basic 语言描述中错误的是（A不区分大小写 B语句是一行一句，以回车键结束 C用分隔一行中的多个语句D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行在VB6.0 集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（。设计模式B中断模式C执行模式D

2、编写代码模式 5如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为TrueATabStopBMultiLineCLockedDVisible在Visual Basic 中，变量的默认类型是（。IntegerBDoubleCCurrencyDVariant文本框没有（）属性。TextBNameCCaptionDBorderStyle8表达式7+10 Mod 。A13B7C69VB 程序中设置断点的按键是（。AF1键BF9键CF8键DCtrl+F8键10Dim I As Integer，则运行时变量I的初始值是（。A0D（每空3分，共30分）在VB 中，将数据库分为本地数据库三种类

3、型。执行赋值语句a=”123”+”456”后，变量a 的值。用Dim A(3,-2 To 语句声明二维数组后，数组A 的元素共个。Winsock 控件主要用来编制基协议的网络应用程序。控件数组的名字属性指定，而数组中的每个元素属性决定。一般可使关键字声明常量。VB 中的程序错误类型主要有编译错误、实时错误等三种。三、阅读程序题（每题 10 分，共 20 分） 1.（10 分）Private Sub Form_Click() Dim x As Integer Static y As Integerx = x + 2 y = x + yForm1.Print x=; x, y=; y End Su

4、b程序运行后三次单击窗体，写出Form1 上的输出结果。2.（10 分）Private Sub Command1_Click()Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2For I = 1 To 3 For j = 1 To ISum2 = Sum2 * j Next jSum1 = Sum1 + Sum2 Next IPrint Sum1 End Sub程序运行时单击Command1后，窗体Form1上的输出结果。得 分评卷人四、完善程序题（得 分评卷人1.已知存在一名为“学生”的SQL Server students 当窗

5、体被加载时，程序联接 SQL Server 数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复students表中添加学生记录。其运行界面如图1 所示。1程序如下，请补充完整。声明对象变量ADOcnPrivate ADOcn As ConnectionPrivate Sub Form_Load()Dim strDB As StringSQL Server数据库strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 学生 If ADOcn Is Nothing Then 1= New Connection ADOcn

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

7、t4+” )”ADOcn.Execute 5MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click() Unload MeEnd Sub五、编写程序题（共 10 分）1购物（1）10元以上者，按九五折优惠2）20元以上者，按九折优惠（3）30（4）500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在2所示。图2Visual Basic 程序设计（一）参考答案及评分标准一单项填空题 （每题 3 分，共 30 分）答案：1D2B3C4D5C6D7C8A9B10A二填空题（每空3 分，共30分 1外部数据库远程数据库2324TCP/I

8、PUDPName6Const逻辑错误三、阅读程序题（10 20 分1（10 分）答案：x=2y=2x=2y=4x=2y=62（10 分答案：31四、完善程序题（共 10 分）（每项2分，共10分）Set ADOcnstrDBActiveConnectionADOrs.EOFstrSQL（共10 分 1（参考答案）答案 1：Private Sub Command1_Click() x = Val(Text1.Text)Select Case x Case Is = Text2.Text = x * Case Is = 300Text2.Text = x * Case Is = 200Text2.Text = x * Case Is = 100Text2.Text = x * 0.95 Case Is 100Text2.Text = x End SelectEnd Sub答案2：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text)If x 100 Theny = x ElseIf x 200 T