《visualbasic程序设计》试题1

《《visualbasic程序设计》试题1》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《VisualBasic程序设计》模拟试题（一）及答案一、单项选择题(每小题3分，共30分)1．后缀为.bas的文件表示（　）。A．类模块文件B．标准类模块文件C．窗体文件D．窗体二进制数据文件2．在文本框中将Text的内容全部显示为所定义的字符的属性是（　）。A．PasswordB．PasswordCharC．CaptionD．Text3．以下有关VisualBasic语言描述中错误的是（　）。A．不区分大小写B．语句是一行一句，以回车键结束C．用“,”分隔一行中的多个语句D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行4．在VB6

2、.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（　）。A．设计模式B．中断模式C．执行模式D．编写代码模式5．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。A．TabStopB．MultiLineC．LockedD．Visible6．在VisualBasic中，变量的默认类型是（　）。A．IntegerB．DoubleC．CurrencyD．Variant7.文本框没有（）属性。A．TextB．NameC．CaptionD．BorderStyle8．表达式7+10Mod3*2+2（　）。A．13B．7C．

3、6D．19．VB程序中设置断点的按键是（　　）。A．F1键　　　　　　　　　B．F9键C．F8键　　　　　　　D．Ctrl+F8键　10．DimIAsInteger，则运行时变量I的初始值是（　　）。A．0B．1C．-1D．空值二、填空题：（每空3分，共30分）1．在VB中，将数据库分为本地数据库、和三种类型。2.执行赋值语句a=”123”+”456”后，变量a的值是。3．用DimA(3,-2To3)语句声明二维数组后，数组A的元素共有个。4．Winsock控件主要用来编制基于或协议的网络应用程序。5．控件数组的名字由属性指定，而数组中的每个元素由属性

4、决定。6．一般可使用关键字声明常量。7.VB中的程序错误类型主要有编译错误、实时错误和等三种。三、阅读程序题（每题10分，共20分）1.（10分）PrivateSubForm_Click()DimxAsIntegerStaticyAsIntegerx=x+2y=x+yForm1.Print"x=";x,"y=";yEndSub程序运行后三次单击窗体，写出Form1上的输出结果。2.（10分）PrivateSubCommand1_Click()DimSum1AsInteger,Sum2AsIntegerSum1=1:Sum2=2ForI=1To3Forj

5、=1ToISum2=Sum2*jNextjSum1=Sum1+Sum2NextIPrintSum1EndSub程序运行时单击Command1后，窗体Form1上的输出结果是。得分评卷人四、完善程序题（共10分）1.已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表

6、中添加学生记录。其运行界面如图1所示。图1程序如下，请补充完整。'声明对象变量ADOcn，用于创建与数据库的连接PrivateADOcnAsConnectionPrivateSubForm_Load()DimstrDBAsString'连接SQLServer数据库strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=学生"IfADOcnIsNothingThen[1]=NewConnectionADOcn.Open[2]EndIfEndSubPrivateSubCommand1_Click(

7、)'增加学生记录DimstrSQLAsStringDimADOrsAsNewRecordsetADOrs.[3]=ADOcnADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“IfNot[4]ThenMsgBox“你输入的学号已存在，不能新增加！”ElseStrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”ADOcn.Exec

8、ute[5]MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_