1、VB 程序设计部分一、选择题21、在程序中将变量 Inta、B1、St、D 分别定义为 Integer 类型、Boolean 类型、String 类型和 Date 类型，下列赋值语句中，正确的是 _ 。A. Inta=“333“+“22“ B. D=#10/05/01#C. St=5+“abc“ D. B1=#True#22、以下使用方法的语句中，正确的是 _ 。A. List1.Clear B. Form1.ClearC. Combo1.Cls D. Picture1.Clear23、以下所列的 7 个控件中，具有 Caption 属性的有 _ 个。PictureBox(图片框)、Frame
2、(框架)、OptionButton(单选按钮）、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)A. 3 B. 4 C. 2 D.524、以下有关对象属性的说法中错误的是 _ 。A. 所有的对象都具有 Name（名称）属性B. 只能在执行时设置或改变的属性为执行时属性C. 对象的某些属性只能在设计时设定，不能使用代码改变D. Enabled 属性值设为 False 的控件对象在窗体上将不可见25、在窗体的通用声明处有语句 Dim A() As Single ，以下在某事件过程中重定义此数组的一组正确语句是： _ 。A. ReDim
3、A(3,3)ReDim A(4,4) As IntegerB. ReDim A(3,3)ReDim Preserve A(4,4) C. ReDim A(3)ReDim A(3,3) As IntegerD. ReDim A(3,3)ReDim Preserve A(3,4)26、在窗体 Form1 中用“Public Sub Fun (x As Integer ,y As Single)”定义过程 Fun ，在窗体 Form2 中定义了变量 i 为 Integer ， j 为 Single ，若要在 Form2 的某事件过程中调用 Form1 中的 Fun 过程，则下列语句中，正确的语句有
4、_ 个。(1) Call Fun(i,j)(2) Call Form1.Fun(i,j)(3) Form1.Fun(i),j(4) Form1.Fun i+1,(j)A.1 B.2 C.3（2、3、4 对） D.427、在文本框 Text1 中输入数字 12，Text2 中输入数字 34，执行一下语句，只有 _ 可使文本框 Text3 中显示 46。A. Text3.Text=Text1.TextNext iPrintNext jEnd Sub3、执行下面程序，单击命令按钮 Command1，则窗体上显示的第一行是 C ，第二行是 CW ，第三行是 8 。Private Sub Command
5、1_Click()Dim s As String, t As StringDim K As Integer, m As Integers = “BASICY“K = 1: m = KFor K = 1 To Len(s) Step m + 1t = t “)a(i) = Left(s, n - 1)s=Mid(s,n+1,Len(s) - N)_Next iA(i) = val(s)Text2.Text = a(1) * a(2) + a(3)End Sub 本题更为简单的算法是：Dim s() As Strings = Split(Text1, “;“)Text2.Text = Val(s(
6、0) * Val(s(1) + Val(s(2) 8、本程序是找零巧数。所谓零巧数是具有下述特征的四位正整数：其百位数为 0，如果去掉0，得到一个三位正整数，而该正整数乘以 9，等于原数。例如 2025=225*9，所以 2025 是零巧数（如图 3 所示）。Private Function change(s As String) As StringDim p As String, i As IntegerFor i = 1 To Len(s)If i 0A(N Mod 10) = 1N = N 10LoopFor I = 0 To 9Js = Js + A(I)Next IIf Js = 2 Then Verify = TrueEnd Function
