可视化编程应用——Visual Basic 6.0 第二版 教学课件 作者 杜秋华 康慧芳习题答案 第2章习题参考答案.docVIP

选择题 下列变量名中，合法的变量名是（）C24 B. A.B C. A：B1+2 可以同时删除字符串前导和尾部空白的函数是（）Ltrim B. Rtrim C. Trim D. Mid 设a=Visual Basic，下面使b=Basic的语句是（）b=Left(a,8,12) B. b=Mid(a,8,5) C. b=Rigth(a,5,5) D. b=Left(a,8,5) 设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是（） B. 大于0的整数 C. 等于0的整数 D. 小于0的数 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（） 4 B. 5 C. 6 D. 7 如果执行以下操作：a=8 CR (CR是回车键，下同) b=9 CR print ab CR 则输出结果是（） –1 B. 0 C. False D. True 当VB执行下面语句后，A的值为（）=1 If A0 Then A=A+1 If A1 Then A=0 A. 0 B. 1 C. 2 D. 3 在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click( ) x=InputBox(x) If x^2=9 Then y=x If x^29 Then y=1/x If x^29 Then y=x^2+1 Print y End Sub 程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是（）3 B. 0.33 C. 17 D. 0.25 执行下面的程序段后，x 的值为（）x=5 For i=1 To 20 Step 2 x=x+i\5 Next i A. 21 B. 22 C. 23 D. 24 在窗体上画两个文本框其Name 属性分别为Text1和Text2和一个命令按钮其Name属性为Command1，然后编写如下事件过程：Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（） 1和0 2和72 3和50 4和168 用下面语句定义的数组的元素个数是（）Dim A (-3 To 5) As Integer A. 6 B. 7 C. 8 D. 9 假定有如下的Sub过程：Sub S（x As Single,y As Single） t = x x =t/y y =t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( ) Dim a As Single Dim b As Single a =5 b =4 Sub Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（）5 4 B. 1 1 C. 1.25 4 D. 1.25 1 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（） A. 15 16 B. 15 6 C. 15 15 D. 5 6 填空题 编写VB程序代码需要在 代码 窗口进行。 为了在整个应用程序中用常量Pi来代替3.1416，应在主窗体口的顶层声明中使用语句： const Pi=3.1416 。 设有如下的Visual Basic表达式：5 * x^2 - 3 * x - 2 * Sin(a)/3 它相当于代数式 。表达式Fix(-32)+Int(-24)的值为______________。随机生成一个1~6的随机整数的表达式是__________________。下面程序运行后，输出的结果为__________________。 Private Sub Command1_C