《广药VB练习题(知识复习,含参考答案)》由会员分享，可在线阅读，更多相关《广药VB练习题(知识复习,含参考答案)（5页珍藏版）》请在金锄头文库上搜索。
1、 1 / 51 下列计算机语言中，_语言不属于高级语言。 (A) Basic (B) C (C) Java (D) 汇编 2 下列可作为 Visual Basic 变量名的是_。 (A) A#A (B) 4AB (C) constA (D) ABS 3 当一个命令按钮的_属性值被设为 False 时，它的提示文字呈现灰色且不能够响应用户操作。 (A) Caption (B) Enabled (C) Picture (D) Visible 4 如果一个窗体中只有以下代码，则当用户触发窗体的_事件时，会显示“Welcome” 。 Private Sub Form_DblClick()Print “
2、Welcome“ End Sub (A) 单击 (B) 双击 (C) 显示 (D) 关闭 5 下面表达式中_的值为字符“S” 。 (A) Left(“BASIC“,3) (B) Right(“BASIC“,3) (C) Mid(“BASIC“,3,1) (D) Len(“BASIC“) 6 VB 程序中，工程文件的扩展名是_。标准模块文件的扩展名为 。 （A）bas （B）frm （C）ocx （D）vbp 7 下列属性中，不能通过代码在运行时重新赋值的是_。 (A) Name (B) Caption (C) Text (D) Enabled 8 VB 中窗体(Form)、图片框(Pictur
3、eBox)或图像框(Image)装入图形可使用_函数。 （A）LoadPicture （B）PictureLoad （C）LoadImage （D）ImageLoad 9 下列取值中，复选框(CheckBox)Value 属性可能的正确取值是_。 （A）True （B）False （C）2 （D）3 10 设 a=10 ，b=5 ，c =1 ，执行语句 Print a b c 后，窗体上显示的是_。 （A）True （B）False （C） 1 （D）出错信息 11 下面属性中，不属于文本框（TextBox）的属性是_。 （A）SelStart （B）Caption （C）PasswordCh
4、ar （D）Text 12 在系统默认情况下，语句 Dim a(-3 To 3，2) As Integer 定义的数组，其元素个数是_。 （A）6 （B）12 （C）14 （D）21 13 表达式 83*6 Mod 5 的值是( ) 。 （A）0 （B）1 （C）2 （D）3 14 设 a=“VisualBasic“，下面使 b=”Basic”的语句是_。 （A）b=Left(a，7，12) （B）b=Mid(a，7，5) （C）b=Right(a，5) （D）b=Left(a，7，5) 15 下列_属性可设置控件在窗体中的大小。 （A） Height 与 Width （B） Height 与
5、 Top （C） Left 与 Top （D） Left 与 Width 16 以下对象不属于容器的是_。（A）窗体(Form) （B）图片框(PictureBox) （C）图像框(Image) （D）框架(Frame) 17 若要调用窗体并显示出来，其实现的方法是_。（A）Show （B）UnLoad （C）Load （D）Hide 18 InputBox 函数返回值的类型为_。 （A）数值 （B）字符串 （C）变体类型 （D）数值或字符串(视输入的数据而定) 19 为了清空列表框(ListBox)中的所有项目，应使用的方法为_。 （A）Cls （B）Clear （C）Remove （D）R
6、emoveItem 20 设 x10，则执行 y = IIf(x 0, x 3, 0) 之后，y 的值为_。 （A）0 （B） 1 （C） 3 （D）语句有错 21 设 x=4,y=6，下面程序中不能输出“a=10”的语句是_。 （A） Print a = x + y （B） Print “a=“ ; x+y （C） Print “a=“ + Str(x+y) （D） Print “a=“ i; “个学生的总分是:“; sum Next i End Sub 运行时发现，除了第 1 个人的总分计算正确外，其他人的总分都是错误的。应该怎样修改程序？_ （A） 把外循环 For i = 1 To 4
7、 改为 For i = 1 To 3，内循环语句 For j = 1 To 3 改为 For j = 1 To 4 （B） 把 sum=0 移到 For i = 1 To 4 和 For j = 1 To 3 之间 （C） 把 sum = sum + score(i, j)改为 sum = sum + score( j,i) （D） 把 sum = sum + score(i, j) 改为 sum = score(i, j) 3 下列程序运行时，在文本框 Text1 中输入字符串“abcdefg” ，单击命令按钮 Command1，标签 Label1 输出_。 Function Fun(S A
8、s String) As StringDim s1 As StringFor i = 1 To Len(S)s1 = UCase(Mid(S, i, 1) + s1Next iFun = s1 End FunctionPrivate Sub Command1_Click()Dim str1 As String, str2 As Stringstr1 = Text1.Textstr2 = Fun(str1)Label1.Caption = str2 End Sub(A) abcdefg (B) gfedcba (C) ABCDEFG (D) GFEDCBA1 将数学表达式写成 VB 表达式，正确
9、的形式是_。22xyx 2 下面程序段中，函数 Val 的作用是_，函数 Str 的作用是_。 Dim x As Integer, y As Long x = Val(Text1.Text) y = x * 2 Label1.Caption = “y=“ + Str(y) 3 窗体 Form1 中有文本框、框架、单选按钮、复选框控件。单击单选按钮和复选框时，根据所选内容更新文本框中输 出的文字（如图） 。填空完成上述功能。 Dim _, Tuanyuan As StringPrivate Sub Check1_Click()If _ ThenTuanyuan = “是“ElseTuanyuan
10、 = “不是“End IfCall Gengxin End SubPrivate Sub Option1_Click()Xingbie = “男“Call Gengxin End Sub Private Sub Option2_Click()Xingbie = “女“Call Gengxin End Sub Sub Gengxin()Text1.Text = “Text1.Text = “我是“ + Xingbie + “孩，我“Text1.Text = _ + “团员“ End Sub 4 下面程序运行时单击命令按钮，显示的结果是_。 Option Explicit Private Sub
11、Command1_Click() x = -9 y = Abs(x) Print “y=“; y End Sub1A2B3D4 / 55 下面的程序定义了判断素数的函数。在文本框输入正整数 x，判断 x 是否素数。填空完善程序。 Function IsPrime(n As Integer) As _Dim Flag As BooleanFlag = True_If n Mod i = 0 Then_Exit ForEnd IfNext iIsPrime = Flag End FunctionPrivate Sub Command1_Click()Dim x As Integerx = Val(
12、Text1.Text) If _ Then Print x; “是素数“ Else Print x; “不是素数“ _ End Sub6 city.txt 文件内容如图中记事本窗口所示。在同一文件夹中建立一个 VB 程序，启动窗体时能够将 city.txt 文件中的字 符串逐行地添加到列表框中。请填空完善程序。 Private Sub _ ()Dim city As _Open App.Path + “city.txt“ _ As #1Do While _Line Input #1, cityList1.AddItem cityLoop_ End Sub 7 编程求所有三位水仙花数。水仙花数是
13、指满足下列条件的三位数：其三位数字的立方和等于它本身。例如，则 157 是水仙花数。填空完善下列程序：157751333 Dim n As Integer, a As Integer, b As Integer, c As Integer For n = _a = n 100b = (n - a * 100) 10c = _If _ = n ThenPrint nEnd If Next n 8 完善程序，生成 20 个200，300区间的随机整数，输出其中能被 5 整除的数并求出它们的和。 Private Sub Form_Click()Dim i%, a%, sum%sum = 0For i = 1 To 20a = Int( + 200)If =0 ThenPrint asum = sum + aEnd IfPrint “Sum=“; sum End Sub 9 完善程序，将已存在的 Data.txt 中 20 个数据读入一维数组并输出(一行 5 个)。 Private Sub Command1_Click()Dim a%(20) Open “Data.txt“ As #1For i = 1 to 20 Print a(i), If i Mod 5 = 0 Then NextEnd Sub 10 为了改变计时器控
