下列关于 VB 编程的说法中，不正确的是_D_______。 A.事件是能被对象识别的动作 B.方法指示对象的行为 C.属性是描述对象特征的数据 D.VB程序采用的运行机制是面向对象
在 Visual Basic 中最基本的对象是__B_____，它是应用程序的基石，是其他控件的容器。 A.文本框 B.窗体 C.标签 D.命令按钮
VB6.0 的__A_____版本，可供专业编程人员开发功能强大的组内分布式应用程序。 A.企业版 B.学习版 C.专业版 D.初级版
有说明语句： Dim x! ，则 x 是__B______类型的变量。 A.整型
B.单精度浮点型 C.长整型 D.双精度浮点型
下面所列符号中，__C_______不是数据类型说明符。 A. ! B. % C. ? D. #
为了给 x,y,z 三个变量赋初值 1，下面的赋值语句正确的是______C___。 A.x=y=z=1 B.xyz=1
C.x=1：y=1：z=1 D.x=1，y=1，z=1
判断整型变量 x 是奇数的表达式是_D_______。 A.x Mod 2 !=0 B.x Mod 2 =0 C.x Mod 3=0 D.x Mod 2<>0
用来确定一个控件在窗体上位置的属性是_D_______。 A.Width和 Height B.Width或Height C.Top或Left D.Top和Left
在默认情况下，InputBox() 函数返回值的类型为___D_____。 A.逻辑类型 B.变体类型 C.数值型 D.字符串型
在使用 InputBox 时，必须设置的参数是___B_____。 A.无 B.提示 C.标题 D.缺省
以下 Case 语句中错误的是__A_____。 A.Case Is>10 And Is<5 B.Case 3,5,Is>10 C.Case Is>10 D.Case 0 to 10
当字符型变量中第三个字符是 \"C\" 时，利用 MsgBox 过程显示 \"Yes\"，否则显示 \"No\"，正确的条件语句是___A_____。
A.If Mid（c,3,1）=\"C\" Then MsgBox \"Yes\" Else MsgBox \"No\"
B.If Left（c,3,1）=\"C\" Then MsgBox\"Yes\" Else MsgBox \"No\" C.If Right（c,3,1）=\"C\" Then MsgBox \"Yes\" Else MsgBox \"No\" D.If string（c,3,1）=\"C\" Then MsgBox \"Yes\" Else MsgBox \"No\" 执行下列程序段输出的结果是_A_。 X%=2 Do While x<8 Print \"*\"; X=x+2 Loop A.*** B.**** C.* D.**
要使For语句for k=__ To -5 Step -2循环执行20次，循环变量的初值应是___B______。 A.35 B.33 C.32 D.31
声明一个长度为10个字节的字符串变量 mstr ，应使用____D____。 A.Dim mstr As String(10) B.Dim mstr(10) As String C.Dim mstr As 10 D.Dim mstr As String * 10
语句 Dim Abc(5) 所定义的数组元素个数是__A______。 A.6 B.5 C.4 D.10
下面叙述中，错误的是____A______。
A.自定义类型只能在窗体模块的通用声明段进行声明 B.在窗体模块中定义自定义类型时必须使用Private关键字
C.自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型 D.自定义类型必须在窗体模块或标准模块的通用声明段进行声明 由 Array 函数建立的数组，其变量必须是__C_______类型。 A.字符型 B.整型 C.变体型 D.字符串类型
子过程 Sub ...End Sub 的形式参数可以是____D_______。 A.常数、简单变量、数组变量
B.常数、简单变量、数组变量和运算式 C.简单变量、数组变量和运算式 D.简单变量、数组变量 编写如下事件过程：
Private Sub Form_Click() Dim x$,y$,Z$,i% x=\"祝你成功\" y=\"1234\" For i=1 To 4
Z=Z+Mid(x,i,1)+Right(y,1) Next i Print Z End Sub
程序运行后，单击窗体，则窗体上显示的内容是___B________。 A.祝你成功1234 B.祝4你4成4功4 C.祝1你1成1功1 D.1234祝你成功
设已定义函数过程 f，它有三个整型数值参数，再设 a, b 和 c 为实型变量，则调
用该函数过程使用的语句为___D_____。 A.f a+b, b+c, c+a B.f
C.f(a+b, b+c) D.f(a+b, b+c ,c+a) 有如下程序：
Private Sub Form_Click（）
a=1:b=2:c=3 Call ss(a,b,c) Print a; b; c End Sub
Private Sub ss( ByVal x , ByRef y , z )
x=x+1: y=y+1: z=z+1 End Sub
程序运行后，单击窗体，则输出的结果是_D_______。 A.2 2 4 B.1 2 3 C.1 3 3 D.1 3 4
在过程的定义中，使用关键字___A_____来修饰形式参数，可以使之按地址传递。 A.ByRef B.ByVal C.Reference D.Value
以下描述中，正确的是___D_____。 A.过程的定义和过程的调用均可以嵌套 B.过程的定义可以嵌套，但过程的调用不能嵌套 C.过程的定义和过程的调用均不能嵌套
D.过程的定义不可以嵌套，但过程的调用可以嵌套
在 Visual Basic 中，要使一个窗体不可见，但不从内存中释放，应使用的语句是
___D______。 A.UnLoand B.Show
C.Load D.Hide
Visual Basic 控件分为3类，它们分别是标准控件、ActiveX 控件和可插入对象 。其中只有___D_______是由系统提供的。
A.ActiveX控件 B.可插入对象 C.以上都可以 D.标准控件
为了装入一个 Visual Basic 应用程序，下列说法中，正确的是__C______。 A.分别装入工程文件和标准模块文件(.bas) B.只装入窗体文件(.frm) C.只装入工程文件(.vbp)
D.分别装入工程文件、窗体文件和标准模块文件
当组合框的_C_____属性值为2时，不允许用户在组合框中输入任何文本。 A.Text B.List C.Style D.ListCount
滚动条的默认属性是__C____。 A.Name B.Min C.Value D.Max
在使用多组 Option 控件时，可以选用___C_____控件，对这些 Option 控件分组。 A.Check B.Line C.Frame
D.Shape
下列___D_____事件是菜单项可以触发的事件。 A.MouseUp B.MouseDown C.KeyPress D.Click
用户按下并且释放一个会产生 ASCII 码的键时，被触发的事件是____C___。 A.Key B.KeyUp C.KeyPress D.KeyDown
下面所列中，鼠标单击事件名为___D_____。 A.DblClick B.MouseUp C.MouseDown D.Click 程序题（12）
Private Sub form_click() s = 0 i = 1
Do While i <= 100 If i Mod 10 <> 0 Then s = s + i i = i + 1 Else i = i + 1 End If Loop Print s End Sub
运行后，输出的结果是__C_____ A.4000 B.4050 C.4500 D.5050 程序题（14）
建立并输出10*10的方阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j% Randomize For i = 1 To 10 For j = 1 To 10 a(i,j) = ___A______ Print Tab(j * 5); a(i, j); Next j Print Next i End Sub A.Int(Rnd*9)+1 B.Int(Rnd*9) C.Int(Rnd) D.Rnd*9 程序题（11）
Private Sub Form_click() Dim s%, i% s = 0 i = 100
Do While i <= 120 If (i \\ 3) * 3 = i Then
s = s + 1 i = i + 1 End If i = i + 1 Loop Print s End Sub
运行后，输出的结果是__D_____ A.13 B.9 C.11 D.7
程序题（48）
执行下列程序段后，输出结果为__C____ x = 1
For i = 0 To 20 Step 10 x = x + i Mod 4 Next i Print x A.5 B.30 C.3 D.7
程序题（46）
执行后，s的值为10，请填空 Private Sub form_Click() s = 0
For i = 1 __B____ s = s + i Next i
Print s End Sub A.To 3 B.To 4 C.To 5 D.To 2 程序题（39）
下列程序运行后文本框中显示的内容是___A__________ 。 Private Sub Command1_Click() a = \"\"
For n = 1 To 100 If n Mod 37 = 0 Then a = a & Trim(Str(n)) End If Next
Text1.Text = a End Sub A.3774 B.37 C.74 D.37 74
从字符串中任意位置截取字符的函数是____B_____。 A.Left() B.Mid() C.Str() D.Right()
从字符串变量 Cstr 中取左边4个字符，应使用__A______。 A.Left(Cstr，4) B.Left(Cstr，1，4)
C.Mid(Cstr，3，4) D.Mid(Cstr，4，3)
结构化程序由三种基本结构组成，下面术语中是三种基本结构之一的是___B____。 A.递归结构 B.选择结构 C.输入输出结构 D.过程结构
在 Visual Basic 中注释语句使用____B____符号来标志。 A.@ B.' C.* D.#
Visual Basic 程序设计语言中，响应对象的外部动作称为____D_____，而对象可以执行的动作或对象本身的行为则称为________。 A.属性，方法 B.过程，事件 C.方法，事件 D.事件，方法
在 Visual Basic 中称对象的数据为_D_________。 A.方法 B.事件 C.封装 D.属性
下面所列中，合法的变量名是_____A_____。 A.x＿yz B.integer C.X+Y D.123abc
下列所列符号中，____B_____是VB中的合法变量名。 A.7AB
B.AB7 C.IF D.A[B]7
下面所列中，__C________是合法的字符常数。 A.ABC B.'ABC' C.\"ABC\" D.ABC$
判断题：语句A=C:C=B:B=A的作用是实现A、B的值互换。 F 判断题：语句If x > 0 Then y=7x-1是正确的。F
判断题：若要清除列表框的所有项目内容，可以使用Clear方法。T 判断题：若有数组说明语句：Dim a()则a被定义为变体型数组。 T 判断题：VB中的数组声明时可根据需要声明为定长数组和动态数组。T 判断题：不能用于列表框控件的方法是AddItem F
判断题：VB中可以同时删除字符串前导和尾部空白的函数是trim()。T
判断题：语句Dim B(-1 To 5, 4) As Interger 所定义的数组B的元素个数是25个。F 判断题：若使命令按钮Command1重新生效，则使用的赋值语句为Command1.Enabled=false F
判断题：日期/时间型常量应使用井号（#）将其括起来。 T
一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picturel），应执行的语句是__Picture1.Picture=LoadPicture(\"pic2.gif\") picture1.picture=loadpicture(\"pic2.gif\") ___。
VB6.0识别对象靠的是对象的__NAME Name name___属性。
组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和__下拉式组合框 ___。
如果菜单标题的某个字母前输入一个__& ___符号，那么该字母就成了热键字母。
如果建立菜单时在标题文本框中输入一个__-___，那么显示时将形成一行分隔符。
在窗体上有一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer, y As Integer) As Integer M = IIf(x > y, x, y) End Function
Private Sub command1_Click() Dim a As Integer, b As Integer a = 100 b = 200 Print M(a, b) End Sub
结果为：200_____。 当用__APPEND append Append
___方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。 在程序运行中，要想使用按钮变成看得见但不可操作，则应设置__ENABLED Enabled enabled
____的属性是False。
MsgBox函数的返回值的类型为___数值型 __。
文本框的默认属性是_Text text TEXT
____。
'------------------------------------------------- '【程序设计】
'-------------------------------------------------
'题目：(事件)双击窗体。
' (响应)求s=1+1×2+1×2×3+…+1×2×3×…×10， ' 并将结果存到变量S中
'------------------------------------------------- Private Sub Form_dblClick() Dim s As Long '******** Begin ******* Dim i, j As Integer Dim k As Long k = 1 s = 0
For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next
Print (CStr(s))
'********* End ************ TestFunc (s) End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \"\\7.out\" For Output As #OUT Print #OUT, i Close #OUT
End Sub 【窗体设计】
------------------------------------------------ 题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面：请按所给窗体的样子设计 窗体，不要求控件的尺寸一样，运行时得到所给 窗体即可。
------------------------------------------------
【控件】VB.TextBox_Text1 标准答案：Name=Text1 【控件】VB.TextBox_Text1
标准答案：Text=字体和字形练习 【控件】VB.CheckBox_Check4 标准答案：Name=Check4 【控件】VB.CheckBox_Check4 标准答案：Caption=下划线 【控件】VB.CheckBox_Check3 标准答案：Name=Check3 【控件】VB.CheckBox_Check3 标准答案：Caption=删除线 【控件】VB.CheckBox_Check2 标准答案：Name=Check2
【控件】VB.CheckBox_Check2 标准答案：Caption=倾斜 【控件】VB.CheckBox_Check1 标准答案：Name=Check1 【控件】VB.CheckBox_Check1 标准答案：Caption=加粗 【控件】VB.OptionButton_Option2 标准答案：Name=Option2 【控件】VB.OptionButton_Option2 标准答案：Caption=黑体 【控件】VB.OptionButton_Option1 标准答案：Name=Option1 【控件】VB.OptionButton_Option1 标准答案：Caption=宋体
下属选项中，属于 VB 的程序设计方法是__C_____。
A.面向过程，事件驱动 B.面向对象、顺序驱动 C.面向对象，事件驱动 D.面向过程，顺序驱动 以下叙述错误的是___A_____。
A.打开一个窗体文件时，系统自动装入与该窗体有关的工程文件 B.事件可以由用户激发，也可由系统激发
C.打开一个工程文件时，系统自动装入与该工程有关的窗体等文件 D.保存VB应用程序时，应分别保存窗体文件和工程文件 表达式 10\\ 8 Mod 9 的值是___B______。 A.2 B.1 C.9 D.0
要在窗体 Form1 内显示字符串 \"MyForm\"，可以使用的语句是___B_____。
A.Form1. Caption=\"MyForm\" B.Form1.Print \"MyForm\" C.Form.Caption=\"MyForm\" D.Form.Print \"MyForm\"
下面程序段的功能是求两个数中的大数，其中__B_______是不正确的。 A.Max = IIf(x > y， x， y)
B.If y >= x Then Max = y: Max = x C.If x > y Then Max = x Else Max = y D.Max = x : If y >= x Then Max = y
执行语句\"For i=1 to 3:i=i+1:Next i\"后变量i的值是C__。 A.6 B.4 C.5 D.3
关于Do...Loop Until循环正确的描述是_C_。 A.如果\"条件表达式\"的值为真，则一次循环也不执行 B.如果\"条件表达式\"的值为真，则要继续执行循环体 C.不论\"条件表达式\"是否为\"真\"，至少要执行一次循环体 D.如果\"条件表达式\"的值为假，则一次循环也不执行 语句 Dim Abc(5) 所定义的数组元素个数是___A_____。 A.6 B.5 C.4 D.10
在使用动态数组前，需要对动态数组进行重新定义，使用____B_____语句。 A.Unload B.Redim C.Load
D.Dim
下列叙述中,错误的说法是____D_______。 A.使用Redim语句可以改变数组每维数的大小 B.使用Redim语句可以对数组的元素初始化 C.使用Redim语句可以改变数组的维数 D.使用Redim语句可以改变数组的类型 在代码中，定义了一个子过程： Sub P(a,b) … End Sub
下面调用该过程的格式正确的___D________。 A.P( ) B.P 10,20,30 C.P 10 D.P 10,20
Private Sub Command1_Click() Dim x As String * 1， y As String， i% x = \"a\"
For i = Asc(x) To Asc(x) + 4 y = y & Chr(i) Next i Print y End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是____D_______。A.a B.aaaa C.32 D.abcde
通用过程可以通过执行\"工具\"菜单中的___B_____命令来建立。
A.通用过程
B.添加过程 C.添加窗体 D.添加模块 设有如下两个过程:
Private Sub Form1_Click() Dim x$,y% x = 18: y = 10 Call PPP((x), y) Print x,y End Sub
Private Sub PPP(a As Single, b As Single) a = a + b Print a,b b = a + b Print a,b End Sub
运行程序后, 则输出结果是___A_____。
A.28 10 28 38 18 38
B.28 10 28 38 18 10
C.28 10 28 38 28 38
D.28 10 28 38 28 10
在过程的定义中，使用关键字___A_____来修饰形式参数，可以使之按值传递。
A.ByVal B.ByRef C.Reference D.Value
下列叙述中，正确的是___C_____。
A.在调用过程时，所有局部变量被系统初始化为0或空字符串 B.在窗体的Form_Load事件过程中定义的变量是全局变量
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.局部变量的作用域可以超出所定义的过程
要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对__C________属性设置就有效。 A.Width B.MinButton C.BorderStyle
Visual Basic 控件分为3类，它们分别是标准控件、ActiveX 控件和可插入对象 。其中只有__D________是由系统提供的。
A.ActiveX控件 B.可插入对象 C.以上都可以 D.标准控件
下列操作中，不能打开代码窗口的操作是___A_____。 A.单击窗体或控件 B.双击窗体上的某个控件 C.按F7键 D.双击窗体
文本框控件没有___A_______属性。 A.Caption
B.Visible C.Enabled D.BackColor
用户在组合框中输入或选择的数据可以通过__C____属性获得。 A.List B.Text C.ListIndex D.ListCount
下面关于列表框正确的是___B_____。 A.列表框中的内容可以直接修改 B.列表框控件实质是一维字符数组
C.列表框的AddItem方法是把项目从列表框中删除 D.列表框的Clear方法是删除列表框中由索引值指定的项目 用户释放任意一个鼠标按钮时，被触发的是___A____事件。 A.MouseUp B.MouseMove C.DblClick D.MouseDown
用户释放键盘上任意一个键时，被触发的事件是__C_____。 A.KeyPress B.KeyDown C.KeyUp D.Key 程序题（11）
Private Sub Form_click() Dim s%, i% s = 0 i = 100
Do While i <= 120 If (i \\ 3) * 3 = i Then
s = s + 1 i = i + 1 End If i = i + 1 Loop Print s End Sub
运行后，输出的结果是_D______ A.13 B.9 C.11 D.7
程序题（69）
在窗体上画一个名称为Command1的命令按钮，编写下列程序： Private Sub Command1_Click() Dim a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub
程序运行后，单击该命令按钮三次后，屏幕上显示的值是_____A___。
A.8 12 B.4 8 C.0 4 D.4 12 程序题（41）
Private Sub Command1_Click() Text1 = \"abcdef\"
Text2 = \"cde\" i = InStr(Text1, Text2) k = i + Len(Text2) Print i,k End Sub
窗体上显示的输出结果为__C______ A.2 6 B.2 8 C.3 6 D.3 8 程序题（35）
编写一个过程,求一个数的正整数次幂。请填空使程序完整 Private Function ff1&(ByVal x%, ByVal y%) Dim t&, i% t = 1 For i = 1 To y t = t * x Next
_________A________ End Function
Private Sub Form_Click() Dim a%, b%
a = Val(inputbox(\"a=?\")) b = Val(inputbox(\"b=?\")) Print ff1(a, b) End Sub A.ff1=t B.x=t C.t=ff1
D.y=t
表达式 Fix(5.6)+Int(-5.6) 的值是_A______。 A.-1 B.1
C.以上都不对 D.0
表达式 Format(val(\"111a\"),\"##.##\") 的值是___A____。 A.111. B.11.10 C.111.00 D.11.1a
关于 VB 源代码的编写，下列说法错误的是__D_____。 A.VBÔ´´úÂëÖв»Çø·Ö×ÖĸµÄ´óСд B.同一行可以写多个语句
C.可以适当添加注释有利于程序的维护和调试 D.一个语句必须写在一行中，不可分成多行来书写 以下叙述中错误的是_C_______。 A.事件过程是响应特定事件的一段程序 B.对象的方法是执行指定操作的过程 C.对象事件的名称可以由编程者指定 D. 不同的对象可以具有相同名称的方法
下面所列中，_______D___是不合法的单精度常数。 A.100！ B.100 C.1E+2 D.100.0D+2
按变量名的定义规则，下面所列中，______C____是错误定义的变量名。 A.Student B.Mark_2 C.Integer
D.Max
下列所列中，__D______是合法的变量名。 A.x%y B.or C.2x D.xy%
VB6.0 集成环境的主窗口中不包含___B____。 A.标题栏 B.状态栏 C.工具栏 D.菜单栏
下面四个选项中，不是 VB6.0 工具箱的标准控件的是__C_____。 A.定时器 B.滚动条 C.多媒体 D.框架
VB6.0 集成开发环境可以_____D__。
A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行程序
表达式 10\\ 8 Mod 9 的值是__B_______。 A.2 B.1 C.9 D.0
a + b 小于 10 且 a - b 大于 1 的逻辑表达式是____c_____。 A.( a - b > 1 ) To ( a + b < 10)
B.a + b < 10 .And. a - b > 1 C.a + b < 10 And a - b > 1 D.a + b < 10 Or a - b > 1
要在窗体 Form1 内显示字符串 \"MyForm\"，可以使用的语句是______B__。
A.Form1. Caption=\"MyForm\" B.Form1.Print \"MyForm\" C.Form.Caption=\"MyForm\" D.Form.Print \"MyForm\"
执行语句 receive = MsgBox(\"AAAA\后，所产生的信息框的标题是__b_____。 A.AAAA B.BBBB C.空
D.出错，不能产生信息框
下面程序段的功能是求两个数中的大数，其中___B______是不正确的。 A.Max = IIf(x > y， x， y)
B.If y >= x Then Max = y: Max = x C.If x > y Then Max = x Else Max = y D.Max = x : If y >= x Then Max = y
如果在窗体上画一个命令按钮Command1，然后编写如下事件代码 Private Sub Command1_click() X=2
For i=1 to 10 Step 2 X=x+i Next i Print x End Sub
那么，程序运行后，单击命令按钮，其窗体上显示的结果是D__。 A.57
B.38 C.26 D.27
执行语句For i=1 to 3:Print i :Next i后变量i的值是______B___。 A.3 B.4 C.2 D.1
设有数组说明语句：Dim c(-1 To 1,1 To 5)，则下列表示数组 c 的元素选项中正确的是__D_______。 A.c(1,0) B.c(i+j) C.c(i)(j) D.c(i,j)
要分配存放12个元素的整形数组，错误的数组声明是__B______。 A.Dim a%(1 To 12) B.Dim a(3,4)
C. Dim a(11) As integer D.Dim a%(2,3)
下列叙述中,错误的说法是___D________。 A.使用Redim语句可以改变数组每维数的大小 B.使用Redim语句可以对数组的元素初始化 C.使用Redim语句可以改变数组的维数 D.使用Redim语句可以改变数组的类型 在代码中，定义了一个子过程： Sub P(a,b) … End Sub
下面调用该过程的格式正确的____D_______。
A.P( ) B.P 10,20,30 C.P 10 D.P 10,20 编写如下事件过程：
Private Sub Form_Click() Dim x$,y$,Z$,i% x=\"祝你成功\" y=\"1234\" For i=1 To 4
Z=Z+Mid(x,i,1)+Right(y,1) Next i Print Z End Sub
通用过程可以通过执行\"工具\"菜单中的_____B___命令来建立。
A.通用过程 B.添加过程 C.添加窗体 D.添加模块 有如下的程序：
Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print \"main:\";a;b;c End Sub
Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print\"Sub:\";p;m;n
End Function
当运行程序后，单击命令按钮 Command1 ，显示的结果是____D____。
A.sub:2 6 4 main:1 6 4 B.sub:2 6 4 main:2 6 4 C.sub:2 6 4 main:1 2 3 D.sub:2 4 6 main:2 2 3
以下描述中，正确的是____D____。 A.过程的定义和过程的调用均可以嵌套 B.过程的定义可以嵌套，但过程的调用不能嵌套 C.过程的定义和过程的调用均不能嵌套
D.过程的定义不可以嵌套，但过程的调用可以嵌套
在 Visual Basic 中，下列控件中， __D______控件可以包含其他控件。 A.CheckBox B.TextBox C.Image D.Frame
当组合框的____C__属性值为2时，不允许用户在组合框中输入任何文本。 A.Text B.List C.Style D.ListCount
Timer 控件可用于后台进程中，可在 Timer 事件内编程，要停止触发 Timer 事件，可通过以下___C____属性。 A.Enabled = False且Interval = 0 B.Enabled = False或Visible = False
C.Enabled = False或Interval = 0 D.Visible= False或Interval = 0
为菜单项中某字母添加热键的方法是在该字母前加__B____。 A.\"-\" B.\"&\" C.\"@\" D.\"#\"
用户释放键盘上任意一个键时，被触发的事件是___C____。 A.KeyPress B.KeyDown C.KeyUp D.Key 程序题（16）
建立并输出10*10的上三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j% Randomize For i = 1 To 10 For j __c__
a(i,j) =Int(Rnd*9)+1 Print Tab(j * 5);a(i, j); Next j Print Next i End Sub
A.=1 To 10-i B.=1 To 10 C.=i To 10 D.=1 To i
程序题（69）
在窗体上画一个名称为Command1的命令按钮，编写下列程序： Private Sub Command1_Click() Dim a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub
程序运行后，单击该命令按钮三次后，屏幕上显示的值是______A_。
A.8 12 B.4 8 C.0 4 D.4 12 程序题（49）
执行下列程序段后，输出结果7,请填空 B x = 1
For i = 0 To 20 Step 5 x = x + i ____ 4 Next i Print x A.8 B.mod C.\\ D./
程序题（19）
下面程序的功能是：根据给定数组，用选择排序法按从小到大递增的顺序排列并显示排序结果 A Private Sub Form_click()
Dim a(), iMin%, i%, j%, t% a = Array(8, 6, 9, 3, 14, 7, 23) n = UBound(a) For i = 0 To n - 1 iMin = i
For j = i + 1 To n
If___________ Then iMin = j Next j t = a(i) a(i) = a(iMin) a(iMin) = t Next i
For i = LBound(a) To UBound(a) Print a(i); Next i End Sub A.a(j) < a(iMin) B.a(j) > a(iMin) C.a(i) > a(iMin) D.a(i) < a(iMin)
确定字符串 str2 在字符串 str1 中起始位置的函数是____D_____。 A.Mid() B.String() C.Left() D.Instr()
在一行语句内写多条语句时，每个语句之间用___B_____符号分隔。 A.； B.: C.， D.、
在 Visual Basic 中称各种可在对象上操作的过程为_______D__。 A.属性 B.事件 C.封装 D.方法
下列所列中，_____D___是合法的变量名。 A.x%y B.or C.2x D.xy%
按变量名的定义规则，下面所列中，___C_______是错误定义的变量名。 A.Student B.Mark_2 C.Integer D.Max 判断；
判断题：窗体最常用的事件只有Load（装入）事件。 X 判断题：表达式12 + 23 Mod 10 \\ 7的值为12。O
判断题：若把图片框Picture1中的图形清除，可以使用的办法是使用语句 Picture1. Picture= LoadPicture(X )
判断题：设A=3，B=4，C=5，D=6，计算表达式A>B AND C<=D OR 2*A>C的值是False。 X
判断题：VB中可以同时删除字符串前导和尾部空白的函数是trim(0)。 判断题：用于去掉字符串左边空格的函数是 Rtrim(X)。
判断题：能正确表达a≤1或a≥5的逻辑表达式是:a<=1 or a>=5 0 判断题：表示x是5或9的倍数的表达式是x mod 5=0 or x mod 9=0。 0 判断题：语句Dim B(-1 To 5, 4) As Interger 所定义的数组B的元素个数是25个。 X
判断题：不能用于列表框控件的方法是AddItem。 X 填空
一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picturel），应执行的语句是__ Picture1.Picture=LoadPicture(\"pic2.gif\")_ picture1.picture=loadpicture(\"pic2.gif\") _。
在窗体上有一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer, y As Integer) As Integer M = IIf(x > y, x, y) End Function
Private Sub command1_Click() Dim a As Integer, b As Integer a = 100 b = 200 Print M(a, b) End Sub 结果为：___200__。
标签控件的默认属性是__ CAPTION _ Caption Caption __。
在程序运行中，要想使某个按钮变成看不见，则应设置Visible的属性是_False FALSE false____。
设a=\"北京\"，b=\"Shanghai\"，则表达式LEFT(a，2)+STRING(3，\"-\")+LEFT(b，8)构成的字符串是___北京---Shanghai__。
为了使列表框中的项目分为多列显示，需要设置的属性是____COLUMNS columns Columns_。
VB6.0识别对象靠的是对象的__NAME Name Name
MsgBox函数的返回值的类型为___数值型__。 ___属性。
文本框的默认属性是__Text text TEXT_ __ 。
程序设计 ；
'------------------------------------------------- '【程序设计】
'-------------------------------------------------
'题目：编写函数fun其功能是：根据整型形参m，计算 ' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m ' 例如：若m=9，则应输出：1.41448412698413
'------------------------------------------------- Private Function fun(m As Integer) As Double
'********** Begin *********
'********** End *************
End Function
Private Sub Form_Load() Show Print fun(9) TestFunc
End Sub
Private Sub TestFunc()
Dim i As Integer Dim s As String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \"\\in.dat\" For Input As #fIn fOut = FreeFile
Open App.Path & \"\\out.dat\" For Output As #fOut For i = 1 To 10 Line Input #fIn, a(i) l = Val(a(i)) Print #fOut, fun(l) Next Close #fIn Close #fOut End Sub
答案；【参考代码】
Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i)
Next fun = y
===============
窗体设置；
'------------------------------------------------- '【程序设计】
'-------------------------------------------------
'题目：编写函数fun其功能是：根据整型形参m，计算 ' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m ' 例如：若m=9，则应输出：1.41448412698413
'------------------------------------------------- Private Function fun(m As Integer) As Double
'********** Begin *********
'********** End *************
End Function
Private Sub Form_Load() Show Print fun(9) TestFunc End Sub
Private Sub TestFunc()
Dim i As Integer Dim s As String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \"\\in.dat\" For Input As #fIn fOut = FreeFile
Open App.Path & \"\\out.dat\" For Output As #fOut For i = 1 To 10 Line Input #fIn, a(i) l = Val(a(i)) Print #fOut, fun(l) Next Close #fIn Close #fOut End Sub
答案； 【参考代码】 Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y
1. 英文缩写“OOP”的含义是_______。c
A.事件驱动的编程机制 B.结构化程序设计语言 C.面向对象程序设计 D.可视化程序设计
5. 下列逻辑表达式中，值为 True 的是________。a A.\"a\">\"AT\" B.\"A\"<\"9\" C.\"A\">\"a\" D.\"AT\"<\"AND\"
6. 下列所列中， 是日期型常量。a A.#2/1/02# B.{2/1/02} C.2/1/02 D.\"2/1/02\"
7. 窗体对象的__________属性可用于设置窗体上的控制菜单。c A.MinButton B.MaxButton C.ControlBox D.DrowMode
11. 下面语句中，正确的是________。a A.If x<>y then print \"x不等于y \" B.If x≠y print \"x不等于y \" C.If x≠y print \"x不等于y \" D.If x≠y then print \"x不等于y \"
12. 如果在窗体上画一个命令按钮Command1，然后编写如下事件代码 Private Sub Command1_click() X=2
For i=1 to 10 Step 2 X=x+i Next i Print x End Sub
那么，程序运行后，单击命令按钮，其窗体上显示的结果是__。 A.57 B.38 C.26 D.27
13. 循环语句For i=20 To 10 Step -2的循环次数为__________。A A.6 B.4 C.不循环 D.5
14. 设有数组说明语句：Dim c(-1 To 1,1 To 5)，则下列表示数组 c 的元素选项中正确的是_________。D A.c(1,0) B.c(i+j) C.c(i)(j) D.c(i,j)
15. 若有数组说明语句：Dim t(1 To 10)，则 t 被定义为________。B A.字符串型数组 B.变体类型数组 C.动态数组 D.整型数组
16. 下面叙述中，错误的是__________。A
A.自定义类型只能在窗体模块的通用声明段进行声明 B.在窗体模块中定义自定义类型时必须使用Private关键字
C.自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型 D.自定义类型必须在窗体模块或标准模块的通用声明段进行声明 17. 由 Array 函数建立的数组，其变量必须是_________类型。C A.字符型 B.整型 C.变体型 D.字符串类型
18. 在代码中，定义了一个子过程：
Sub P(a,b) … End Sub
下面调用该过程的格式正确的___________。D A.P( ) B.P 10,20,30 C.P 10 D.P 10,20
19. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim x As String * 1， y As String， i% x = \"a\"
For i = Asc(x) To Asc(x) + 4 y = y & Chr(i) Next i Print y End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是___________。D A.a B.aaaa C.32 D.abcde
20. 设已定义函数过程 f，它有三个整型数值参数，再设 a, b 和 c 为实型变量，则调用该函数过程使用的语句为________。D A.f a+b, b+c, c+a B.f
C.f(a+b, b+c) D.f(a+b, b+c ,c+a) 21. 有如下程序：
Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Call pl(a,b) Print \"a=\"; a; \"b=\"; b End Sub
Private Sub pl(ByVal x As Integer, y As Integer) x = 5 y = x + y End Sub
程序运行时，单击窗体后，窗体上显示的值是________。C
A.a=5 b=20 B.a=10 b=20 C.a=10 b=25 D.a=5 b=25
22. 在过程的定义中，使用关键字________来修饰形式参数，可以使之按值传递。A A.ByVal B.ByRef C.Reference D.Value
23. 以下描述中，正确的是________。D A.过程的定义和过程的调用均可以嵌套 B.过程的定义可以嵌套，但过程的调用不能嵌套 C.过程的定义和过程的调用均不能嵌套
D.过程的定义不可以嵌套，但过程的调用可以嵌套 24. 下列叙述中，正确的是________。C
A.在调用过程时，所有局部变量被系统初始化为0或空字符串 B.在窗体的Form_Load事件过程中定义的变量是全局变量
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.局部变量的作用域可以超出所定义的过程
25. 在 Visual Basic 中，要使一个窗体不可见，但不从内存中释放，应使用的语句是_________。D
A.UnLoand B.Show C.Load D.Hide
26. 在 Visual Basic 中，下列控件中， ________控件可以包含其他控件。D A.CheckBox B.TextBox
C.Image D.Frame
27. 为了装入一个 Visual Basic 应用程序，下列说法中，正确的是________。C A.分别装入工程文件和标准模块文件(.bas) B.只装入窗体文件(.frm) C.只装入工程文件(.vbp)
D.分别装入工程文件、窗体文件和标准模块文件 28. 文本框控件没有__________属性。A A.Caption B.Visible C.Enabled D.BackColor
29. 如果列表框 List 中没有被选择的项目，则执行 List1.RemoveItem List1.ListIndex 语句的结果是______。 C A.移去最后一项 B.移去第一项 C.发生错误
D.移去最后加入列表的一项
30. Check1 为复选框，Command1 为命令按钮框，Text1 为文本框，Option1 为单选框，则以下赋值语句错误的是_____。 C A.Command1.Caption=\"Exit\" B.Check1.Caption=\"grayed\" C.Option1.Value=\"grayed\" D.Text1.Text=\"我的文档\"
31. 为菜单项中某字母添加热键的方法是在该字母前加______。B A.\"-\" B.\"&\" C.\"@\"
D.\"#\"
32. 下面所列中，鼠标单击事件名为________。D A.DblClick B.MouseUp C.MouseDown D.Click
33. 用户释放键盘上任意一个键时，被触发的事件是_______。C A.KeyPress B.KeyDown C.KeyUp D.Key
34. 程序题（16）
建立并输出10*10的上三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整C
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j% Randomize For i = 1 To 10 For j ____
a(i,j) =Int(Rnd*9)+1 Print Tab(j * 5);a(i, j); Next j Print Next i End Sub
A.=1 To 10-i B.=1 To 10 C.=i To 10 D.=1 To i
35. 程序题（12） Private Sub form_click() s = 0 i = 1
Do While i <= 100 If i Mod 10 <> 0 Then s = s + i i = i + 1 Else i = i + 1 End If Loop Print s End Sub
运行后，输出的结果是_______C A.4000 B.4050 C.4500 D.5050
36. 程序题（14）
建立并输出10*10的方阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整A
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j% Randomize For i = 1 To 10 For j = 1 To 10 a(i,j) = _________ Print Tab(j * 5); a(i, j);
Next j Print Next i End Sub
A.Int(Rnd*9)+1 B.Int(Rnd*9) C.Int(Rnd) D.Rnd*9
37. 程序题（48）
执行下列程序段后，输出结果为______ C x = 1
For i = 0 To 20 Step 10 x = x + i Mod 4 Next i Print x A.5 B.30 C.3 D.7
38. 程序题（66） Private Sub form_click() s = 0 i = 1
Do While i <= 10 If i Mod 2 <> 0 Then s = s + i i = i + 1 Else
i = i + 1 End If Loop Print s End Sub
运行后，输出的结果是_______C A.20 B.10 C.25 D.55
39. 程序题（43）
以下程序输出结果为“####”,请填空;A Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 If a =______ Then Print \"#####\" Else
Print \"*****\" End If End Sub A.c-b B.c/b C.c*b D.c+b
40. 如果 x 是一个正实数，对 x 的第3位小数四舍五入的表达式是________。A A.0.01*Int(100*(x+0.005)) B.0.01*Int(x+0.005) C.0.01*Int(100*(x+0.05))
D.0.01*Int(x+0.05)
41. 设 a=\"abcdefghijklm\" ，下面的函数值为 \"jklm\" 的是_______。B A.rtrim(a) B.mid(a,10,4) C.ltrim(a) D.left(a,4)
47. 在 VB 中，对于已经声明但没有赋值的布尔型变量，系统的默认值是___________。C A.1 B.0 C.False D.True
48. 下面所列中，__________是不合法的单精度常数。D A.100！ B.100 C.1E+2 D.100.0D+2
判断题：窗体最常用的事件只有Load（装入）事件。 F 判断题：表达式12 + 23 Mod 10 \\ 7的值为12。 T
判断题：若把图片框Picture1中的图形清除，可以使用的办法是使用语句 Picture1. Picture= LoadPicture( )F
判断题：设A=3，B=4，C=5，D=6，计算表达式A>B AND C<=D OR 2*A>C的值是False。F
判断题：VB中可以同时删除字符串前导和尾部空白的函数是trim()。T 判断题：用于去掉字符串左边空格的函数是 Rtrim()。F 判断题：能正确表达a≤1或a≥5的逻辑表达式是:a<=1 or a>=5 T 判断题：表示x是5或9的倍数的表达式是x mod 5=0 or x mod 9=0。T
判断题：语句Dim B(-1 To 5, 4) As Interger 所定义的数组B的元素个数是25个。F 判断题：不能用于列表框控件的方法是AddItem。F
标签控件的默认属性是__CAPTION Caption caption___。
为了使列表框中的项目分为多列显示，需要设置的属性是__COLUMNS columns Columns___。
VB6.0识别对象靠的是对象的__NAME Name name ___属性。
MsgBox函数的返回值的类型为__数值型___。
'【程序设计】
'-------------------------------------------------
'题目：编写函数fun其功能是：根据整型形参m，计算 ' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m ' 例如：若m=9，则应输出：1.41448412698413
'------------------------------------------------- Private Function fun(m As Integer) As Double
'********** Begin *********
'********** End *************
End Function
Private Sub Form_Load()
Show Print fun(9) TestFunc End Sub
Private Sub TestFunc()
Dim i As Integer Dim s As String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \"\\in.dat\" For Input As #fIn fOut = FreeFile
Open App.Path & \"\\out.dat\" For Output As #fOut For i = 1 To 10 Line Input #fIn, a(i) l = Val(a(i)) Print #fOut, fun(l) Next
Close #fIn Close #fOut End Sub
【参考代码】
Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y
===============
【考生代码】
1．循环语句For i=20 To 10 Step -2的循环次数为_a_________。 A.6 B.4 C.不循环 D.5
2．设有数组说明语句：Dim c(-1 To 1,1 To 5)，则下列表示数组 c 的元素选项中
正确的是___d______。 A.c(1,0) B.c(i+j) C.c(i)(j) D.c(i,j)
若有数组说明语句：Dim t(1 To 10)，则 t 被定义为__b______。 A.字符串型数组 B.变体类型数组 C.动态数组 D.整型数组
下面叙述中，错误的是a__________。
A.自定义类型只能在窗体模块的通用声明段进行声明 B.在窗体模块中定义自定义类型时必须使用Private关键字
C.自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型 D.自定义类型必须在窗体模块或标准模块的通用声明段进行声明 由 Array 函数建立的数组，其变量必须是_c________类型。 A.字符型 B.整型 C.变体型 D.字符串类型
在代码中，定义了一个子过程：
Sub P(a,b) … End Sub
下面调用该过程的格式正确的__d_________。 A.P( ) B.P 10,20,30
C.P 10 D.P 10,20
在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim x As String * 1， y As String， i% x = \"a\"
For i = Asc(x) To Asc(x) + 4 y = y & Chr(i) Next i Print y End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______d_____。 A.a B.aaaa C.32 D.abcde
设已定义函数过程 f，它有三个整型数值参数，再设 a, b 和 c 为实型变量，则调用该函数过程使用的语句为___d_____。 A.f a+b, b+c, c+a B.f
C.f(a+b, b+c) D.f(a+b, b+c ,c+a)
有如下程序：
Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Call pl(a,b) Print \"a=\"; a; \"b=\"; b End Sub
Private Sub pl(ByVal x As Integer, y As Integer) x = 5 y = x + y End Sub
程序运行时，单击窗体后，窗体上显示的值是_c_______。
A.a=5 b=20 B.a=10 b=20 C.a=10 b=25
D.a=5 b=25
在过程的定义中，使用关键字___a_____来修饰形式参数，可以使之按值传递。 A.ByVal B.ByRef C.Reference D.Value
以下描述中，正确的是___d_____。 A.过程的定义和过程的调用均可以嵌套 B.过程的定义可以嵌套，但过程的调用不能嵌套 C.过程的定义和过程的调用均不能嵌套
D.过程的定义不可以嵌套，但过程的调用可以嵌套
下列叙述中，正确的是___C___。
A.在调用过程时，所有局部变量被系统初始化为0或空字符串
B.在窗体的Form_Load事件过程中定义的变量是全局变量
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.局部变量的作用域可以超出所定义的过程
在 Visual Basic 中，要使一个窗体不可见，但不从内存中释放，应使用的语句是_D________。
A.UnLoand B.Show C.Load D.Hide
在 Visual Basic 中，下列控件中， _D_______控件可以包含其他控件。 A.CheckBox B.TextBox C.Image D.Frame
为了装入一个 Visual Basic 应用程序，下列说法中，正确的是______C__。 A.分别装入工程文件和标准模块文件(.bas) B.只装入窗体文件(.frm) C.只装入工程文件(.vbp)
D.分别装入工程文件、窗体文件和标准模块文件 文本框控件没有__A________属性。 A.Caption B.Visible C.Enabled D.BackColor
如果列表框 List 中没有被选择的项目，则执行 List1.RemoveItem List1.ListIndex 语句的结果是___C___。 A.移去最后一项
B.移去第一项 C.发生错误
D.移去最后加入列表的一项
Check1 为复选框，Command1 为命令按钮框，Text1 为文本框，Option1 为单选框，则以下赋值语句错误的是_C____。 A.Command1.Caption=\"Exit\" B.Check1.Caption=\"grayed\" C.Option1.Value=\"grayed\" D.Text1.Text=\"我的文档\"
为菜单项中某字母添加热键的方法是在该字母前加__B____。 A.\"-\" B.\"&\" C.\"@\" D.\"#\"
下面所列中，鼠标单击事件名为_D_______。 A.DblClick B.MouseUp C.MouseDown D.Click
用户释放键盘上任意一个键时，被触发的事件是____C___。 A.KeyPress B.KeyDown C.KeyUp D.Key
程序题（16）
建立并输出10*10的上三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整C
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j% Randomize For i = 1 To 10 For j ____
a(i,j) =Int(Rnd*9)+1 Print Tab(j * 5);a(i, j); Next j Print Next i End Sub
A.=1 To 10-i B.=1 To 10 C.=i To 10 D.=1 To i 程序题（12）A Private Sub form_click() s = 0 i = 1
Do While i <= 100 If i Mod 10 <> 0 Then s = s + i i = i + 1 Else i = i + 1 End If Loop
Print s End Sub
运行后，输出的结果是_______ A.4000 B.4050 C.4500 D.5050 程序题（48）
执行下列程序段后，输出结果为__C____ x = 1
For i = 0 To 20 Step 10 x = x + i Mod 4 Next i Print x A.5 B.30 C.3
D.7程序题（43）
以下程序输出结果为“####”,请填空; Private Sub Form_click()A
Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 If a =______ Then Print \"#####\" Else
Print \"*****\" End If End Sub A.c-b B.c/b
C.c*b D.c+b
如果 x 是一个正实数，对 x 的第3位小数四舍五入的表达式是______A__。 A.0.01*Int(100*(x+0.005)) B.0.01*Int(x+0.005) C.0.01*Int(100*(x+0.05)) D.0.01*Int(x+0.05)
设 a=\"abcdefghijklm\" ，下面的函数值为 \"jklm\" 的是___B____。 A.rtrim(a) B.mid(a,10,4) C.ltrim(a) D.left(a,4)
在一行语句内写多条语句时，每个语句之间用_B_______符号分隔。 A.； B.: C.， D.、
VB 提供了结构化程序设计的三种基本结构，三种基本结构是______C__。 A.递归结构、选择结构、循环结构 B.选择结构、过程结构、顺序结构 C.选择结构、循环结构、顺序结构 D.过程结构、输入输出结构、转向结构
在 Visual Basic 中称各种可在对象上操作的过程为_____D____。 A.属性 B.事件 C.封装 D.方法
下列所列符号中，___B______是VB中的合法变量名。 A.7AB B.AB7
C.IF D.A[B]7
在 VB 中，对于已经声明但没有赋值的布尔型变量，系统的默认值是____C_______。 A.1 B.0 C.False D.True
下面所列中，__D________是不合法的单精度常数。 A.100！ B.100 C.1E+2 D.100.0D+2
一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picturel），应执行的语句是__ Picture1.Picture=LoadPicture(\"pic2.gif\") picture1.picture=loadpicture(\"pic2.gif\") ___。
组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_____。 为了使列表框中的项目分为多列显示，需要设置的属性是_ COLUMNS columns Columns ____。
确定单选框是否选中，应访问的属性是_____。value VALUE Value
设a=\"北京\"，b=\"Shanghai\"，则表达式LEFT(a，2)+STRING(3，\"-\")+LEFT(b，8)构成的字符串是_____。北京---Shanghai
在窗体上有一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer, y As Integer) As Integer M = IIf(x > y, x, y) End Function
Private Sub command1_Click() Dim a As Integer, b As Integer a = 100 b = 200 Print M(a, b) End Sub
结果为：_200____。
如果建立菜单时在标题文本框中输入一个___-__，那么显示时将形成一行分隔符。在程序运行中，要想使某个按钮变成看不见，则应设置Visible的属性是_____。 False FALSE false
如果要将变量a在过程中定义为静态的整型变量，应使用的语句是_____。 static a% static a as integer Static a% Static a As Integer
'------------------------------------------------- '【程序设计】
'------------------------------------------------- '题目：(事件)单击窗体。
' (响应)求100到500之间奇数的和，将结果输出 ' 在窗体上并存入变量SUM中。 ' 使用do...loop until语句完成程序
'------------------------------------------------- Private Sub Form_Click()
Dim sum As Long
'***************** Begin ************** 【参考代码】
Dim i As Integer i=100 do
If i Mod 2 = 1 Then
sum = sum + i End If i=i+1 loop until i>500 Print sum
===============
'*************** End ************************* Call TestFunc(sum) End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \"\\out.txt\" For Output As #OUT Print #OUT, i Close #OUT End Sub 答案； 【考生代码】
------------------------------------------------ 【窗体设计】
------------------------------------------------ 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。 ------------------------------------------------
1、添加控件
在窗体内添加3个文本框(Text1，Text2，Text3)， 3个标签(Label1，Label2，Label3)， 2个水平滚动条(HScroll1，HScroll2)。 2、窗体设置：
设置窗体名称(Name)为\"Form6\"。 设置窗体标题(Caption)为\"VB上机试卷\"。 3、文本框设置：
在第1个文本框(Text1)中输入文本(Text)\"颜色调节\"， 设置文本的对齐方式为\"居右对齐\"。 设置第2个文本框(Text2)的内容为空。 设置第3个文本框(Text3)的内容为空。 所有文本框的字体、字号可任选。 4、标签设置：
设置第1个标签(Label1)标题(Caption)为\"文本框的前景色\"。 设置第2个标签(Label2)标题(Caption)为\"文本框的背景色\"。 设置第3个标签(Label3)标题(Caption)为\"当前值\"。 5、滚动条设置：
适当调整水平滚动条的大小和位置。
答案：
【控件属性评分】 错误 【控件】VB.TextBox_Text1 标准答案：Name=Text1 学生答案：Name=
【控件属性评分】 错误 【控件】VB.TextBox_Text2 标准答案：Name=Text2
【控件属性评分】 错误 【控件】VB.TextBox_Text3 标准答案：Name=Text3 学生答案：Name=
【控件属性评分】 错误 【控件】VB.Label_Label1 标准答案：Name=Label1 学生答案：Name=
【控件】VB.Label_Label2 标准答案：Name=Label2
学生答案：Name=
【控件属性评分】 错误 【控件】VB.Label_Label3 标准答案：Name=Label3 学生答案：Name=
【控件属性评分】 错误
【控件】VB.HScrollBar_HScroll2 标准答案：Name=HScroll2 =
【控件】VB.HScrollBar_HScroll1 标准答案：Name=HScroll1 学生答案：Name=
【窗体】结果文档.FRM 标准答案：Name=Form6 【窗体】结果文档.FRM
标准答案：Caption=VB上机试卷 【控件】VB.TextBox_Text1 标准答案：Text=颜色调节
【控件】VB.TextBox_Text1
标准答案：Alignment=1 'Right Justify 【控件】VB.Label_Label1 标准答案：Caption=文本框的前景色
【控件】VB.Label_Label2
标准答案：Caption=文本框的背景色
【控件】VB.Label_Label3 标准答案：Caption=当前值
因篇幅问题不能全部显示，请点此查看更多更全内容
Copyright © 2019- igat.cn 版权所有 赣ICP备2024042791号-1
违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务