《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.0集成开发环境中有三种工作模

2、式，下列不属于三种工作模式之一的是（）。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.6D.19.VB程序中设賈断点的按键是（）。B.F9键D

3、.Ctrl+F8键1.DimIAsInteger,则运行时变fiI的初始值是（）。A.0B.1C•一1D.空值二、填空题：（每空3分共30分）1.在VB中，将数据库分为本地数据库、和三种类型。2.执行赋值语句a=”123”+”456”后，变量a的值是。3.用0^八（3，-2丁03）语句声明二维数组后，数组A的元素共有个。4.Winsock控件主要用來编制基于或协议的网络应用程序。5.控件数组的名字由属性指定，而数组屮的每个元素由属性决定。6.一般可使用关键字声明常量。7.VB中的程序错误类型主要有编译错误、实时错误和等三种。三、阅读程序题（每题10分，共20分）1.（10

4、分）PrivateSubForm_Click（）DimxAsIntegerStaticyAsIntegerx=x+2y=x+yEorml.Print〃x=〃；x,〃y=〃；yEndSub程序运行后三次单击窗体，写出Forml上的输出结果。2.（10分）PrivateSubCommandl_Click（）DimSumlAsInteger,Sum2AsIntegerSuml=1:Sum2=2ForI=1To3Forj=1TolSum2=Sum2*jNextjSuml=Suml+Sum2NextIPrintSumlEndSub程序运行时单击Commandl后，窗体Forml上的

5、输出结果是得分评卷人四、完善程序题（共10分〉1.已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用來存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图1所示。图I程序如下，请补充完整。1声明对象变量ADOcn，用于创建与数据库的连接PrivateADOcnAsConnectionPrivateSubFo

6、rm_Load()DimstrDBAsString旌接SQLServer数据库strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=学生"IfADOcnIsNothingThenf11=NewConnectionADOcn.Open[21EndIfEndSubPrivateSubCommand1_Click()1增加学生记录DimstrSQLAsStringDimADOrsAsNewRecordsetADOrs._[3]=ADOcnADOrs.Open“Select学号FromStudentsWhere学号‘“

7、+Textl+”‘“IfNotf41ThenMsgBox“你输入的学号己存在，不能新增加！”ElseStrSQL=5,InsertIntostudents(学号，姓名，，籍贯，性别)StrSQL=strSQL+Values'“+textl+”'/“+text2+”‘，’“+text3+”'，’“+text4+”‘)”ADOcn.Executef51MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub五、编写程序题（共10分）1.请根据以下描述编写购物优惠程