vb期末模拟题(答案).doc

VB.NET程序设计课程模拟题(A卷 答案)一、选择题1.下列叙述中正确的是_。A.数组是用户自定义的数据类型 B.数组元素在内存中的存放形式是连续的C.数组在使用时可以采用隐式声明 D.数组的下界可以任意答案 B2.复选框的CheckState属性为_时，表示复选框内有灰色的勾即不可选。 A.Unchecked B.IndeterminateC.Checked D.None答案 B3.删除列表框中第2项的项目，所使用的方法为_ 。 A.Items.RemoveAt B.MoveC.Items.Clear D.Items.Remove答案 A4.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 _。A.Sub f1(ByVal n%,ByVal m%)B.Sub f1( ByRef n%,ByVal m%)C.Sub f1( ByRef n%, ByRef m%)D.Sub f1(ByVal n%, ByRef m%)答案 C5.下列各赋值语句，语法不正确的是（ ） A.iNumber = 15 B.sLength = x + yC.x+y = 5 D.Label1.Text = TimeOfDay答案 C6.在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_。 A.Text(.txt)|*.txt B.Text(.txt)(*.txt)C.文本文件|(.txt) D.Text(.txt)|*.txt答案 D7.以下程序输出的结果是_ 。Dim a() As Integer=1, 2, 3, 4, 5, 6, 7For i =0 To Ubound (a) a(i) = a(i) * a(i)Next iMsgBox(a(i)A.49 B.0C.不确定 D.程序出错答案 D8.下列_方式声明的变量在每次调用该过程时其值不能保留。 A.在过程体中用Dim语句声明的变量 B.在标准模块中声明的变量C.在过程外声明的变量 D.在过程体中用Static语句声明的变量答案 A9.在下列关于定时器的说法中，正确的是( )。A.当Enabled属性为False时，不产生Tick事件B.在程序运行时不可见的，这是因为Visible属性为FalseC.当Interval属性为0，则Tick事件不会发生D.通过适当的设置可以将Interval属性的单位改为秒答案 A10.下面是用户界面控件的是（ ）A.GroupBox控件 B.Timer控件C.OpenFileDialog控件 D.MenuStrip控件答案 A二、程序填充1. 程序的功能是读取a.txt文件，统计以,逗号间隔的每个字符串中汉字的个数，并以下右图的形式显示在Label1中。 Private Sub Button1_Click(.) Handles Button1.Click Dim str$, k%, i% Label1.Text = _(1)_(1, c:a.txt,OpenMode.Input ) Do While Not EOF(1) Input(1, str) _(2)_ For i = 1 To Len(Str) If Asc(Mid(str, i, 1) 0 Then k = k + 1 Next Label1.Text &= str & _(3)_ 以如图所示的形式显示 Loop End Sub答案 （1）FileOpen （2）k = 0 （3）, & k & vbCrLf 2.下列程序随机产生n个互不重复的三位数，存放在数组a中。子过程s( )的功能是统计数组x中百位数与个位数相同的个数。单击按钮从键盘输入要随机产生的互不重复的三位数的个数，数据以每行5个的形式输出，同时调用子过程s( )，将统计的结果输出。 Private Sub Button1_Click(.) Handles Button1.Click Dim a%(), c%, k%, n%, j%, i%, count% Dim Flag As Boolean k = Val(InputBox(输入产生数的个数:) _(1)_ a(k-1) a(0) = Int(Rnd() * 900 + 100) n = 1 Do While n maxlen Then maxlen = Len(ListBox1.Items(i) maxstr = ListBox1.Items(i) End If Next For i = 0 To ListBox1.Items.Count - 1 If Len(ListBox1.Items(i) = maxlen Then ListBox1.Items(i) = ListBox1.Items(i) & End If Next Label1.Text = 最长字符串为: & maxstr & vbCrLf Label1.Text &= 字符数为： & maxlen End Sub Private Sub 字体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体ToolStripMenuItem.Click FontDialog1.ShowDialog() ListBox1.Font = FontDialog1.Font ListBox1.ForeColor = FontDialog1.Color End Sub Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click Dim i% FileOpen(1, C:a.txt, OpenMode.Output) For i = 0 To ListBox1.Items.Count - 1 PrintLine(1, ListBox1.Items.Item(i) Next MsgBox(文件成功保存) FileClose(1) End Sub Private Sub 结束ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 结束ToolStripMenuItem.Click End End Sub Private Sub 菜单2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 菜单2ToolStripMenuItem.Click Form2.ShowDialog() End SubEnd ClassPublic Class Form2 Const PI = 3.1415926 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub ComboBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ComboBox1.KeyPress If Asc(e.KeyChar) = 13 Then If Not IsNumeric(ComboBox1.Text) Then MsgBox(输入错误！) ComboBox1.Text = Else Dim f As Boolean, x%, i% x = ComboBox1.Text