二级VB模拟题与答案.docVIP

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) s1 Then s1 = ____(3)____ End Select Next i If m 0 Then TextBox2.Text = s / m TextBox3.Text = s1 Function IsMyChar(ByVal c As String) As Integer If c = 0 ___(4)___ c = 9 Then IsMyChar = 0 ElseIf UCase(c) = A And UCase(c) = Z Then IsMyChar = 1 Else IsMyChar = ___(5)___ End If End Function 3、 本程序消除10到100内2，3，5，7的倍数，最后在Label1中显示所余下的非零整数（每行5个数）。 程序的思想是：先将2到100的非零