《2022年vb期末模拟题 .pdf》由会员分享，可在线阅读，更多相关《2022年vb期末模拟题 .pdf（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB.NET 程序设计课程模拟题(A卷答案)一、选择题1.下列叙述中正确的是_。A.数组是用户自定义的数据类型 B.数组元素在内存中的存放形式是连续的C.数组在使用时可以采用隐式声明 D.数组的下界可以任意答案 B 2.复选框的 CheckState 属性为 _时，表示复选框内有灰色的勾即不可选。A.Unchecked B.Indeterminate C.Checked D.None 答案 B 3.删除列表框中第2项的项目，所使用的方法为_。A.Items.RemoveAt B.Move C.Items.Clear D.Items.Remove 答案 A 4.要想从子过程调用后返回两个结果，下
2、面子过程语句说明合法的是 _。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%)答案 C 5.下列各赋值语句，语法不正确的是（）A.iNumber=15 B.sLength=x+y C.x+y=5 D.Label1.Text=TimeOfDay 答案 C 6.在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_。A.Text(.txt)|*.txt B.Text(.tx
3、t)(*.txt)C.文本文件|(.txt)D.Text(.txt)|*.txt 答案 D 7.以下程序输出的结果是_。Dim a()As Integer=1,2,3,4,5,6,7 For i=0 To Ubound(a)a(i)=a(i)*a(i)Next i MsgBox(a(i)A.49 B.0 C.不确定 D.程序出错答案 D 8.下列 _ 方式声明的变量在每次调用该过程时其值不能保留。A.在过程体中用Dim语句声明的变量 B.在标准模块中声明的变量C.在过程外声明的变量 D.在过程体中用Static语句声明的变量答案 A 9.在下列关于定时器的说法中，正确的是()。A.当 Enab
4、led 属性为 False 时，不产生 Tick 事件B.在程序运行时不可见的，这是因为Visible属性为 False C.当 Interval属性为 0，则 Tick 事件不会发生名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 7 页 -D.通过适当的设置可以将Interval属性的单位改为秒答案 A 10.下面是用户界面控件的是（）A.GroupBox 控件 B.Timer控件C.OpenFileDialog控件 D.MenuStrip控件答案 A 二、程序填充1.程序的功能是读取a.txt文件，统计以,逗号间隔的每个字符串中汉字的个数，并以下右图的形式显示在 Label1
5、 中。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个互不重复
6、的三位数，存放在数组a中。子过程 s()的功能是统计数组x中百位数与个位数相同的个数。单击按钮从键盘输入要随机产生的互不重复的三位数的个数，数据以每行 5个的形式输出，同时调用子过程s()，将统计的结果输出。名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 7 页 -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)
7、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 字体ToolStri
8、pMenuItem_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.EventA
9、rgs)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 结束ToolStri
10、pMenuItem.Click End End Sub Private Sub 菜单2ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles 菜单2ToolStripMenuItem.Click Form2.ShowDialog()名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 7 页 -End Sub End Class Public Class Form2 Const PI=3.1415926 Private Sub Button1_Click(ByVa
11、l 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 f=True For i=2 To x-1 If x Mod i=0 Then f=False:Exit For Next If f Then ComboBox1.Items.Add(ComboBox1.Text)End If ComboBox1.Text=End If End If End Sub End Class 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 7 页 -