二级VB模拟题及答案

2009VB.net测试题一、 单选题二、 填空题1、语句 For i = 15 To 2 Step -2 的循环次数为_ 。2、要关闭当前的窗口，语句为：_.Close() 。3、若窗体上已建多个控件，要使程序启动完毕焦点就定位在某一控件上，应将该控件的TabIndex属性设为_。4、整数型变量m中存放了一个两位数，要将这两位数字用一个表达式交换位置，例如28变为82，表达式为_。5、字符型数据以Unicode码存放，无论西文或中文字符均占_个字节。6、要使标签的大小自动与所显示的文本相适应，可以通过设置_属性为True来实现。7、要释放一个对象变量，则需要给该对象变量赋值为_。三、 程序填空题1、以下程序的功能是：从半径5.6开始，按精度0.01依次递增计算圆面积，最后输出面积不超过100的最大半径。 Const PI = 3.1415926 Dim r, m, s As Single Dim s1 As String r = 5.6 s = 0 s1 = Do While (1)_ r = (2)_+0.01 s = PI * r * r s1 = s1 & s & vbCrLf 存放计算结果 Loop m = r - (3)_ MsgBox(s1 & vbCrLf & m)2、以下程序的功能是：在文本框TextBox1内输入一串任意字符(长度不超过50个字符)，分离出单个数字分别存放于数组x中，分离出单个字母分别存放于数组y中，其他字符则丢弃。最后求出这些数字的平均值，以及这些字母中的最小字母,并分别显示在文本框TextBox2和TextBox3。程序的思想是：对于每一单个字符c，调用函数过程IsMyChar(c)用来判别c是数字，还是字母，或者是其他字符，并返回相应标志值0、1、-1。 Dim sp, s1 As String Dim x(50) As Integer Dim y(50) As String Dim m, n, s, i, t As Integer m = 0 n = 0 s = 0 s1 = Chr(255) For i = 1 To Len( （1 ） ) sp = Mid(TextBox1.Text, i, 1) t = （2 ） Select Case t Case 0 m = m + 1 x(m) = Val(sp) s = s + x(m) Case 1 n = n + 1 y(n) = sp If y(n) 0 Then TextBox2.Text = s / m TextBox3.Text = s1 Function IsMyChar(ByVal c As String) As Integer If c = 0 _(4)_ c = A And UCase(c) = Z Then IsMyChar = 1 Else IsMyChar = _(5)_ End If End Function3、本程序消除10到100内2，3，5，7的倍数，最后在Label1中显示所余下的非零整数（每行5个数）。程序的思想是：先将2到100的非零整数放到数组中，先后将2，3，5，7的倍数的数组元素值设为0，最后将非0数组元素值输出。 Dim a(100) As Integer Dim i%, d%, j%, count% For i = 2 To 100 a(i) = _(1)_ Next i For i = 2 To 7 If a(i) = 2 Or a(i) = 3 Or a(i) = 5 Or a(i) = 7 Then d = 2 * i For j = d To 100 Step i 将i 的所有倍数设置为0 _(2)_= 0 Next j End If Next i 按每行5个数显示在标签中 count = 0 Label1.Text = vbCrLf For i = 10 To 100 If _(3)_ Then Label1.Text = Label1.Text & & i count = _(4)_ If count Mod 5 = 0 Then Label1.Text = Label1.Text & vbCrLf End If Next i四、编程题参照样例，编写一个完整的程序，要求如下：1在C:KS 目录下新建项目文件VBNET.sln。2在窗体1上放置文本框1、文本框2、时钟控件和命令按钮。设置按钮文本为暂停，Enabled属性为False；设置文本框2为多行；其他说明如样例。按下表建立菜单。菜单标题备注应用一级菜单开始计时二级菜单-分隔线退出二级菜单窗体2一级菜单在窗体2上放置列表框1（初始值为空），放置读数据和返回两个命令按钮。3单击 开始计时菜单项，使时钟控件开始工作，在文本框1模拟计时秒表，按分：秒显示，精确到0.1秒，同时使按钮的Enabled改变为True；单击暂停按钮，暂停计时，改变按钮文本为继续，同时将秒表上的时间添加到文本框2（回车换行用vbCrLf）；单击继续按钮，时钟继续工作，再将按钮文本改为暂停。4单击窗体2菜单项时，打开窗体2；单击退出菜单项时，结束程序的运行。5在窗体2上单击读数据命令按钮：从C:ksdata.txt数据文件中读出数据，依次写入列表框中；单击返回命令按钮则关闭窗体2。 参考答案说明：【】标记内为多种参考答案单选题1. A2. A3. C4. D5. C6. D7. A8. B9. A10. A填空题1. 【7】2. 【Me】3. 【0】4. 【(m Mod 10)*10+m10】5. 【2】6. 【Autosize】7. 【Nothing】程序填空题1. 1)【s 0】4)【count + 1】编程题参考代码：Public Class Form1 Inherits System.Windows.Forms.Form Dim h%,m%, s%, ms% Private Sub Button1_Click() Handles Button1.Click If Button1.Text = 暂停 Then Timer1.Enabled = False 停止计时 TextBox2.Text &= TextBox1.Text & vbCrLf Button1.Text = 继续 Else Timer1.Enabled = True Button1.Text = 暂停 End If End Sub Private Sub MenuItem2_Click() Handles MenuItem2.Click Timer1.Interval = 100 开始计时 Timer1.Enabled = True TextBox2.Text = 清空文本框内容 h=0 : m = 0 : s = 0 : ms = 0 Button1.Text = 暂停 Button1.Enabled = True End Sub Private Sub MenuItem4_Click() Handles MenuItem4.Click End End Sub Private Sub MenuItem5_Click() Handles MenuItem5.Click Dim f2 As New Form2 f2.Show() End Sub Private Sub Timer1_Tick() Handles Timer1.Tick 下面程序将计算经过的时间 If mS 9 Then mS = mS + 1 Else mS = 0 If S 59 Then S = S + 1 Else S = 0 If m 59 Then m = m + 1 Else m=0 h=h+1 End If End If End If 将经过时间的数值转化为字符型显示到文本框 TextBox1.Text = Str(m) + : + Str(s) + . + Str(ms) End SubEnd ClassForm2Private Sub Button1_Click() Handles Button1.Click Dim mX As Single, mY As Single ListBox1.Items.Clear() ListBox2.Items.Clear() FileOpen(1, xy.txt, OpenMode.Input) Do While Not EOF(1) Input(1, mX) Input(1, m