《Visual Basic程序设计》大作业.doc

沈阳广播电视大学开放教育期末大作业课程名称： Visual Basic程序设计 姓 名 教育层次 专 科 学 号 省级电大 沈阳广播电视大学 专 业 分 校 辅导教师 教 学 点 一、单项选择题1后缀为.frm的文件表示（）。A类模块文件 B窗体文件C标准类模块文件 D窗体二进制数据文件2窗体的Load事件的触发时机是（ ）。A用户单击窗体时 B窗体被加载时 C窗体显示之后 D窗体被卸载时3与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）。A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术4无论何种控件，共同具有的属性是（ ）。AText属性 BCaption属性 CName属性 DAutosize属性5有程序代码如下： Text1.Text = VB简单易学，功能强大则Text1、Text 、和 VB简单易学，功能强大分别代表（ ）。A对象，值，属性 B对象，属性，值C对象，方法，属性 D属性，对象，值 6刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。A单选按纽 B图片框 C框架 D通用对话框7. 如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（ ）属性。 ACaption BPasswordChar CText DChar8如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）。AText.Mytext BMytext.Text CMytext.(Text) DMytext*Text9将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（ ）。AList1.AddItemChina,0 BList1.AddItemChina,1CList1.AddItemChina, DList1.AddItem1,China10要在窗体的标题栏内显示“欢迎您！”，使用的语句是（ ）。AForm.caption=欢迎您! BForm1.caption=欢迎您!CForm1.print 欢迎您! DForm. print 欢迎您! 11如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。 ALocked BMultiLine CTabStop DVisible12关于语句行，下列说法正确的是（ ）。 A一行只能写一条语句 B长度不能超过255个字符C每行的首字符必须大写 D一条语句可以分多行书写13当使用上下文相关的帮助时，选择要帮助的内容，然后按（ ）键，就可出现MSDN窗口直接显示所需的帮助信息。A、Help B、F10 C、Esc D、F114以下可以作为Visual Basic变量名的是（ ）。 ASIN BCO1 CCOS（X） DX（-1）15不属于VB数据库引擎的是（）。AODBC B Jet引擎CBDE DOLE DB16如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（ ）属性。 ACaption BText CLocked DPasswordChar17用下面的语句所定义的数组的元素的个数是（ ）。 Dim A(-3 To 5)As IntegerA6 B7 C8 D918要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。ABorderSyle BMaxButton CWidth DMinButton19如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）。AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确20对于定时器（Timer）控件，设置其定时是否开启的属性是（ ）。AIndex BTag CEnabled DLeft二、填空题1要在窗体Form1内显示“myfrm”，使用的语句是 。2. 在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。3表达式8+13 Mod 2*4+3的值是 。4要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK！时，应当编写的语句是。5若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。6全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。7为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。8表达式14/2-23*7 MOD 6的值是 。9. 将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。10变量的声明方法有隐式和 两种，如果采用隐式声明方法，那么VB会自动将变量声明为 。11Winsock控件主要用来编制基于 或 协议的网络应用程序。12Winsock控件主要用来编制TCP/IP或 协议的通话程序。13VB应用程序与数据库进行通信的主要机制称为 。14若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过工程菜单的 菜单项，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 语句。15列表框控件中最后一项的序号等于ListCount属性减 。16VB中，Access数据库属于 。（说明是哪种数据库类型）17闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是 。18若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。19如果要每隔15s产生一个Timer事件，则Interval属性应设置为 。20如果希望得到本地计算机的IP地址，可以使用Winsock控件的 属性。三、阅读程序题（阅读下列程序并写出程序运行结果） 1Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 3 y = y + 4 Form1.Print x=; x, y=; yEnd Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2Private Sub Command1_Click() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 0: Sum2 = 1 For i = 1 To 3 For j = 1 To i Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2Next iPrint Sum1End Sub写出程序运行时单击Command1按纽后，Form1上的输出结果。3Private Sub Form_Click() Dim i As Integer, k As Integer, c As Integer For i = 1 To 5 If i Mod 2 = 0 Then k = k + 2 Else c = c + 3 End If Next i Print k, cEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。 4Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim b As Integer For b = 1 To 5 A(b) = b Next b Text1.Text = A(b - 2)End Sub写出程序运行时单击Command1按纽后，Text1上的输出结果。5. Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 1 Do While i 8 i = i + 5 s = s + i Loop Text1.Text = sEnd Sub写出程序运行时单击命令按纽后，文本框中的输出结果。四、完善程序题1假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。图1用Access创建的学生基本情况数据表图2 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 ADOcn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:学生.MDBEnd SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 2 Recordset ADOrs.ActiveConnection = ADOcn strSQL = Select * From 学生基本情况 Where 学号= + + Text1 + .3 If 4 ADOrs.EOF Then Text2 = ADOrs.Fields(学号) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍贯) Else MsgBox 要查询的学号不存在，请重新输入!, vbOKOnly, 信息提示 Text1 = 5 End IfEnd Sub Private Sub Command2_Click() UnLoad Me End2假设用Access创建了一个名为“HRM.mdb”的数据库，并在其中创建了一张名为“档案”的数据表，表中存放了人员的基本信息，如图3所示。要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图4、图5所示。图3 用Access创建的档案数据表图4 程序设计界面图5 程序运行界面程序如下，请补充完整。Public cn As New ADODB.ConnectionSub main() Dim strcn As String strcn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path _+ HRM.mdb;Persist Security Info=False cn.Open 1 frmMain.ShowEnd SubPrivate Sub Myrefresh() Dim rs As 2 Dim strtmp As String Dim i As Integer 3 = cn rs.Open Select * From 档案 Order by 编号 MSFlexGrid1.Clear MSFlexGrid1.FixedRows = 0 MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 4 MSFlexGrid1.AddItem 职工编号 + vbTab + 职工姓名 + vbTab + 职称 + vbTab + 简历, 0 i = 1 Do While 4 rs.EOF strtmp = rs(编号) + vbTab + rs(姓名) + vbTab + rs(职称) + vbTab + rs(简历) MSFlexGrid1.AddItem strtmp, i rs.MoveNext Loop MSFlexGrid1.FixedRows = 1End SubPrivate Sub Form_Load() 5 End Sub五、编写程序题1编写一程序，要求单击“开始”按钮(Command1)，在列表框(List1)中输出200300