35.下列不能打开代码窗口的操作是________。
A.双击窗体或控件
B.单击“工程”菜单下的“代码窗口”
C.右击窗体或控件，选择“查看代码”
D.按F7键 36.下列不属于对象的方法的是。 A.Print
B.Setfocus
C.RemoveItem
D.Gotfocus
37.下列可以作为Visual Basic 的变量名的是。
A. _ABC
B. 1AB
C. A@B
D. A1_
38. 下列程序执行后，整型变量n 的值为。
n=0
For i=1 to 50
If I Mod 2 = 0 Then n=n+1 Next i print n A. 50
B.49
C. 25
D. 24
39. 设组合框Combo1中有3个项目，以下能删除最后一项的语句是。 A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3
D. Combo1.RemoveItem Combo1.Listcount 40. 下列有关VB 控件说法错误的是________。 A.滚动条控件的MIN 属性值可以比MAX 属性值大
B.单选按钮和复选框可能通过修改属性改变其外观，如单选按钮可以不是圆的
C.组合框是列表框和文本框的组合，它具有列表框的所有属性，还具有文本框属性
D.所有控件都有NAME 属性，它是只读属性
54．在Visual Basic 中，由系统事先设定的，能被对象识别和响应的动作称为。
55．每次单击滚动条两端的箭头按钮，滚动条的变化值是5，应设置它的属性。
56．VB 表达式-2^3+int(rnd(2))*len(“世博会”)=。
78．（）改变Name 的值，将会改变窗体标题上的内容。
79．（）在VB 中，框架是一种能将窗体上的控件进行分组的特殊控件，当框架移动时，其内部控件也会随之移动。
80．（）无论是窗体还是控件，都只有获得焦点才能接受键盘事件。 81．（）在VB 中，对于已经建立的多个相同类型的控件不能组成控件数组。 90．VB 程序功能：计算下列表达式的值。请将程序补充完整。（7分）
99321
-
1x x x x s ??+-
+
-
=
Private Sub Command1_Click()
Dim x%,s!,f%,i%
X=inputbox(“请输入x的值”)
S=1:f=-1
（1）
For i=1 to 99
t= （2）
S= （3）
f=-f
next i
print s
end sub
91.有一个命令按钮的单击事件，其作用是产生100个三位随机正整数，统计其中被6整除余2,被5整除余3的个数，并将这些数输出。（10分）
Private sub command1_click( )
Dim n%,x%,k%
Do while （1）
X=（2）
If（3）then
（4）
k =（5）
End if
loop
print k
end sub
93．创建如93题图-1界面：三个标签分别为label1、label2和label3，一个文本框text1，用来输入姓名；一个组合框combl1，作为性别下拉列表，包含“男、女”两值，文本内容无法修改；三个复选框的名称分别为chk1、chk2、chk3，其他控件名称默认。用VB编程实现个人信息的输入程序。当窗体启动时，要求输入姓名，选择相应的性别和特长，如93题图-1所示，再单击“确定”按钮，则弹出如93题图-2所示的对话框。单击“退出”则退出该程序。（10分）
94．如下图所示，窗体上有二个文本框Text1和Text2，其中Text1允许输入多行文本，窗体上还有三个命令按钮Command1（标题为“产生数组”）、Command2（标题为“排序”）和command3(标题为“求平均值”)，另外还有二个标签Label1和label2，要求：单击“产生数组”按钮，则用函数生成10个0～100之间（不含0和100）的随机整数，并将它们保存在一维数组a 中，同时也将这10个数值显示在Text1中（每行显示一个数据），单击“排序”按钮，则将数组a 中的十个数按从大到小的顺序显示在列表框list1中,单击“求平均值”按钮，计算这10个随机数的平均值，显示在Text2中，只有当文本框Text1非空时command3按钮才有效。（16分）
第94题
第93题图-1
第93题图-2
（1）设计应用程序界面，新建工程，在窗体上添加三个标签，一个文本框，一个组合框，三个复选框和2个命令按钮，并将对象调整到合适大小和位置。
（2）设置对象属性（2分）
（3）编写代码
（1）设计应用程序界面，新建工程，在窗体上添加三个标签，二个文本框，一个列表框，三个复选框和3个命令按钮，并将对象调整到合适大小和位置。
（2）设置对象属性（2分）
（3）编写代码
___事件_______ _
55. _ ___smallchange_____56. ___-8 _______
90．(7分）
（1）（2分） t=1
（2）（2分） t*x/(i+1)
（3）（3分）s+t*f
91．(10分）
（1）（2分） n<= 100
（2）（2分）int(rnd*900+100)
（3）（2分） x mod 6=2 and x mod 5=3
（4）（2分） print x
（5）（2分） k+1
93. （10分）
（1）设计应用程序界面，新建工程，在窗体上添加三个标签，一个文本框，一个组合框，三个复选框和2个命令按钮，并将对象调整到合适大小和位置。
(2)设置对象属性（2分）
(3)编写代码
Private Sub Command1_Click()
Dim tc$
If Chk1.Value = 1 Then tc = "音乐"
If Chk2.Value = 1 Then tc = tc& "美术"
If Chk3.Value = 1 Then tc = tc& "体育"
MsgBox "姓名：" & Text1.Text + vbCrLf + "性别：" & Combo1.Text + vbCrLf + "
特长：" + tc, , "个人信息"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
94. （16分）
（1）设计应用程序界面，新建工程，在窗体上添加三个标签，二个文本框，一个列表框，三个复选框和3个命令按钮，并将对象调整到合适大小和位置。
(2)设置对象属性（2分）
(3)编写代码
Dim a%(10)
Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 10
a(i) = Int(Rnd * 99 + 11)
Text1.Text = Text1.Text &a(i) &vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Dim i%, j%, t%
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j
Next i
For i = 1 To 10
List1.AddItem a(i)
Next i
End Sub
Dim i%, s%, aver!
Private Sub Command3_Click()
For i = 1 To 10
s = s + a(i)
Next i
aver = s / 10
Text2.Text = aver
End Sub
Private Sub Text1_Change()
If Text1.Text <> "" Then
Command3.Enabled = True
Else
Command3.Enabled = False
End If
End Sub
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
1.Private Sub Command1_Click() Dim r As Double, c As Double, s As Double Dim pi As Double pi = 3.1415926 r = Val(Text1.Text) c = pi * 2 * r s = pi * r * r Label3.Caption = "圆的周长为" + Str(c) + "厘米" Label4.Caption = "圆的面积为" + Str(s) + "平方厘米" End Sub 2.（5秒5分倒计时） Dim n As Integer Private Sub Command1_Click() If Option1.Value Then n = 5 If Option2.Value Then n = 300 Timer1.Enabled = True Frame1.Enabled = False Command1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() n = n - 1 Text1.Text = Str(n \ 60) & "分" & Str(n Mod 60) & "秒" If n <= 0 Then Timer1.Enabled = False Frame1.Enabled = True Text1.Text = "时间到" End If End Sub 3.心想事成 Dim x As Integer Private Sub Command1_Click() Timer1.Enabled = True If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Form_Load() Timer1.Interval = 100 x = -100 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + x If Label1.Left <= 0 Then x = 100 If Label1.Left >= Form1.ScaleWidth - Label1.Width Then x = -100 End Sub 4.我的调色板（滚动条） Private Sub Command1_Click() Label5.ForeColor = Label4.BackColor End Sub Private Sub HScroll1_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 5.字形字体颜色（复选框，单选）Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check1.Value = 1 Then
云南师范大学2007-2008学年下学期统一考试 《计算机技术基础》（VB6.0）期末考试试卷 考试方式（闭卷）考试时量：100分钟试卷编号（ A 卷） 1. ActiveX 部件是可以重复使用的编程代码和数据。A A. 对 B.错 2. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。B A. 对 B.错 3. 定义菜单项时，可以不设置分隔线的菜单项控件名称。B A. 对 B.错 4. 用Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间， 而且还为变量赋所需的初值。B A. 对 B.错 5. 数组作为过程参数时，使用的是地址传送方式。A A. 对 B.错 6. 用Public 申明的变量能被其它模块存取。A A. 对 B.错 7. 列表框的列表项只能在属性窗口中添加。B A. 对 B.错 8. 菜单选项“ Enabled” 属性与“ Visible ”属性是相同的。B A.对 B.错 9. 三种基本控制结构是：顺序结构、选择结构和循环结构。A A.对 B.错 10. 用For循环写的程序不能用While循环来写。B A.对 B.错 二、单选题（在本题的每一小题的被选答案中只有一个正确答案，多选不给分，每题 1 分，共40 分） 11. InputBox函数的返回值的类型为B__o A.数值 B.字符串 C.逻辑值 D.日期值 12. 下面关于打印对话框属性的说法错误的是C__o
A.Copies 属性指定打印的份数。 B. HDC 属性指定分配给打印机的句柄，用来识别对象的设备环境。 C. FromPage属性指定要打印文档的页范围。使用该属性时必须把Flags属性设置为1。 D. Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max 指定允许的最后页码。 13. Print #1，STR1$中的Print 是A A.顺序文件的写语句 B.在窗体上显示的方法 C.子程序名 D.打印命令 14. 文本框没有__D___属性。 A.Enabled B.Visible C.BackColor D.Caption 15. 下面四项中，_A _____ 是VB中的数值变量。 A.ABC B.E+2 C."True" D.1.35E-2 16. 下列不能打开菜单编辑器的操作是___D___。 A. 按Ctrl+E B. 单击工具栏中的菜单编辑器”按钮 C. 执行工具”菜单中的菜单编辑器”命令 D. 按Shift + Alt + M 17. 语句Print Format("HELLO", "<") 的输出结果是_B ____ 。 A.HELLO B.hello C.He D.he 18. 如果文本框的Enabled属性设为False则—A _____ 。 A. 文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上 B. 文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 C. 文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D. 文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 A.1 B.2 C.3 D.4
Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2 Public Const VK_CANCEL = &H3 Public Const VK_MBUTTON = &H4 Public Const VK_BACK = &H8 Public Const VK_TAB = &H9 Public Const VK_CLEAR = &HC Public Const VK_RETURN = &HD Public Const VK_SHIFT = &H10 Public Const VK_CONTROL = &H11 Public Const VK_MENU = &H12 Public Const VK_PAUSE = &H13 Public Const VK_CAPITAL = &H14 Public Const VK_ESCAPE = &H1B Public Const VK_SPACE = &H20 Public Const VK_PRIOR = &H21 Public Const VK_NEXT = &H22 Public Const VK_END = &H23 Public Const VK_HOME = &H24 Public Const VK_LEFT = &H25 Public Const VK_UP = &H26 Public Const VK_RIGHT = &H27 Public Const VK_DOWN = &H28 Public Const VK_Select = &H29 Public Const VK_PRINT = &H2A Public Const VK_EXECUTE = &H2B Public Const VK_SNAPSHOT = &H2C Public Const VK_Insert = &H2D Public Const VK_Delete = &H2E Public Const VK_HELP = &H2F Public Const VK_0 = &H30 Public Const VK_1 = &H31 Public Const VK_2 = &H32 Public Const VK_3 = &H33 Public Const VK_4 = &H34 Public Const VK_5 = &H35 Public Const VK_6 = &H36 Public Const VK_7 = &H37 Public Const VK_8 = &H38 Public Const VK_9 = &H39 Public Const VK_A = &H41 Public Const VK_B = &H42 Public Const VK_C = &H43 Public Const VK_D = &H44
课程号：SG04002 《VB程序设计》考试试卷（A） 考试形式：闭卷考试考试时间：120分钟 所有答案答在答题纸上 院系学号姓名得分 题号一二三四五总分 一．判断题（正确划√，错误划×）（10分） 1.事件的编程可以在代码设计窗口中进行，系统为不同对象提供了不同的事件集。事件是 对象特有的，不能主观臆造×(事件不是对象特有的，方法是对象所特有的) 2.即使单选按钮控件数组中的元素分属在多个容器中也只能从中选择一个控件× 3.过程和函数的区别在于有无返回值√ 4.只要把Image控件的Stretch属性设置为True，控件会自动调整大小以适应所装载的图片 的大小×（说反了，应该是图片适应控件的大小） 5.Left(Val("1234ab"), 2)的结果是”12”√Val 返回的是数，把1234给left, 但是left 返回 是串，取串里的两个字符12，所以结果是12这个串，要加双引号。 6.列表框控件的Style属性为1（Checkbox）时，MultiSelect属性必须为0（None）√ Style 只有0和1，0是标准的，1是复选checkbox，组合框是三个值0,1,2 7.没有通用对话框控件文件就没办法读写×对话框不负责文件的读写，只负责传串，文件
读写由读写语句进行。读图形文件是函数完成的,load picture, 写图形文件是save picture. 8.通过PaintPicture方法可以对图片进行缩放和裁剪等变换√还可以翻转 9.Do~loop while和Do while ~loop 在循环条件为True时循环结果一样√当循环条件为 false时不一样 10.只有顶级菜单和二级菜单才能调用窗体的PopupMenu方法制作弹出式菜单×只有父菜 单才能备调用 二．单项选择填空题（共40分） 1．有value属性的控件是【 D 】 A．TextBox B．ListBox C．ComboBox D．ScrollBar 有value属性的有三个控件：opptionbutton, checkbox, scrollbar 2．下列属性中不属于组合框控件是【 B 】 A．ListIndex B．Selected C．Text D．List 3．能画横半轴为3，纵半轴为2的语句是【 C 】 A．(0, 0), 3, , , 2 / 3 B．(0, 0), 3, , , , 3 /2 C．(0, 0), 3, , , , 2 / 3 D．(0, 0), 3, , , 3/2 [<对象名>.]Circle [Step](x, y),<半径>,[<颜色>], , ,<边比率> 纵比横中间缺3个参数，颜色，起和止幅度，用四个逗号分隔 4．下列控件没有change事件是【B】 A．TextBox B．ListBox C．ScrollBar D．ComboBox 5．命令按钮控件能响应用户的单击必须保证其【 C 】属性均为真 A．Visible和Caption B．Enabled和ToolTipText C． Enabled 和Visible D．Caption和ToolTipText 6．下面标识符哪个可作为数组的名字【 B 】
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
高二Visual Basic 期末试卷 一、单项选择题 01 Visual Basic 是一种可视化、面向对象的程序设计语言，采取了（）的编程机制。 A 、按模块顺序执行 B 、从主程序开始执行 C 、事件驱动 D 、按过程顺序执行 02 在设计应用程序时，通过（）窗口可以查看到应用程序工程的所有组成部分。 A 、代码 B 、窗体 C 、属性 D 、工程资源管理器 03 Visual Basic 有两种运行模式，分别是（）。 A 、设计模式和运行模式 B 、编译模式和中断模式 C 、解释模式和中断模式 D 、解释模式和编译模式 04 Visual Basic 有3种工作模式，在（）模式下，可以修改代码，但不可以修改窗体界面。 A 、运行 B 、设计 C 、中断 D 、编译 05、下列操作不可以打开属性窗口的是（）。 A 、按F4键 B 、双击任何一个对象 C 、单击鼠标右键 D 、执行“视图”菜单中的“属性窗口”命令 06下面（）是合法的变量名。 A 、X>YZ B 、123ab C 、integer D 、x-y 07 a=123&Mid （”123456”，3，2）执行后，a 有值为（）。 A 、12345 B 、12334 C 、1234 D 、123456 08 下面程序段的运行结果是（）。 a=8 b=9 Print a>b A 、-1 B 、0 C 、False D 、True 09 若a=2, b=3, c=4, 则值为True 的表达式是（）。 A 、12/a+2=b^2 B 、3>2*b Or a=c And b>c Or a>b C 、a>b And b<=c Or 3*a>b D 、a*b>c+3 10 设a=”Visual Basic “，使b=”Basic ” 语句是（）。 A 、b=left （a,5） B 、b=Right （a,5,5） C 、b=left （a,8,5） D 、b=Mid （a,8,5） 11表示x+y<15 ,且x*y>0的逻辑表达式是（）。 A 、x+y<15 Or x*y>0 B 、x+y<15 And x*y>0 C 、x+y<15 And Not (x*y<0) D 、x+y<15 And x*y>=0 12 设变量x=4,y=-1,a=7,b=-8,下面表达式（）的值为False. A 、x+a<=b-y B 、X>0 And y<0 C 、a=b Or x>y D 、x+y>a+b And Not （yVB期末试卷(A卷带答案 )
高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2 B) 3 C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b
End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ?? ?≠≥=<=) (2) c (1 d c b a d b a x 且且 B) ?? ?≠<=<=)(2) c (1 d c b a d b a x 且且 C) ? ? ?≥=<=)(2) c (1b a d b a x 且 D) ? ? ?≠=<=)(2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0
前言 我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。 第1.1例 ASC函数 一、题目： 要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。 二、代码： Sub 示例_1_01() Dim myNum1%, myNum2% myNum1 = Asc("Excel") '返回69 myNum2 = Asc("e") '返回101 [a1] = "myNum1= ": [b1] = myNum1 [a2] = "myNum2= ": [b2] = myNum2 End Sub 三、代码详解 1、Sub 示例_1_01()：宏程序的开始语句。 2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。 也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符 号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。 Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。 语法 Asc(string) 必要的 string（字符串）参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。 4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。这里返回小写字母e 的ASCII代码101。 5、[a1] = "myNum1= ": [b1] = myNum1：把字符串“myNum1= “赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、[a2] = "myNum2= ": [b2] = myNum2：把字符串“myNum2= “赋给A2单元格，把变量myNum2的值赋给B2单元格。 7、End Sub：程序的结束语句，和“Sub示例_1_01（）”相对应。 第1.2例 Chr函数 一、题目""： 要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。 二、代码： Sub 示例_1_02() Dim myChar1$, myChar2$ myChar1 = Chr(69) ' 返回 E。 myChar2 = Chr(101) ' 返回 e。 [a1] = "myChar1= ": [b1] = myChar1 [a2] = "myChar2= ": [b2] = myChar2
VB编程常用代码大全 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根 num>0 int(num): 取整 int(99.8)=99; int(-99.2)=100 fix(num): 取整 fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2 log(num): 取以e为底的对数 num>0 exp(n): 取e的n次幂通常用 num^n sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选
如果要将窗体中的某个命令按钮设置成运行时无法显示，应该设置它的属性。 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为。 能够获得一个文本框中被选取文本的内容的属性是。 以下属于Visual Basic合法的数组元素是。 设置命令按钮的属性时，只有将属性设置为1，Picture属性才有效，否则无效。 VB有三种工作模式，它们分别是___________模式。 下列函数中，________函数返回的值是数值型的。 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为。 以下控件中没有Print方法是( ) 以下叙述中错误的是 ( ) A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 C）Visual Basic应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发 下列数组声明语句中的数组a包含了_________个数组元素。( ) Dim a(4,-1 to 1,0 to 3) 复选框的Value属性为0时，表示( ) 复选框的Value属性为2时，表示( ) 主过程通过参数传递将一个参数传递给子过程A，并能够通过参数传递返回一个结果，下列子过程的正确定义 以下不属于Visual Basic系统的文件类型是。 A）.frm B）.bat C）.vbg D）.vbp 按变量名的定义规则，是合法定义的变量名。 结构化程序由三种基本结构组成，下面属于三种基本结构之一的是_______ 执行以下程序段后，变量c$的值为________。 a$="Visual Basic Programming"
vb编程代码大全 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选
VB知识点总结大全 第一章VB入门（*） 1.2.2 主窗口 1．标题栏 三种工作模式 （1）设计模式：可进行界面设计、代码编制 （2）运行模式：不可编辑界面、代码 （3）中断模式：不可编辑界面，可以编辑代码 2．菜单栏 3．工具栏 1.2.3 设计窗口 1．窗体设计窗口 2．代码设计窗口 （1）打开方式： 1.单击菜单栏的视图——选择代码窗口 2.双击窗体、控件 3.单击工程资源管理器窗口的“查看代码” （2）主要内容 1.对象列表框：显示所选对象的名称。列出窗体所有可用的对象名。 2.过程列表框：列出所有对象列表框中对象的事件过程或自定义过程的 名称。 1.2.4属性窗口 由四部分组成： 1.对象列表框 2.属性排列方式：按字母排列、按分类排列 3.属性列表框：左边为属性名，右边为相应的属性值 4.属性含义说明：显示所选属性的含义 1.2.5 工程资源管理器窗口 （1）3个按钮 1.“查看代码”：切换到代码窗口，显示和编辑代码 2.“查看对象”：切换到窗体窗口，显示和编辑对象 3.“切换文件夹”：切换到文件夹显示方式 （2）包含两种类型的文件 1.窗体文件（.frm文件）：储存窗体上所有控件对象和有关的属性、对象 相应的事件过程、程序代码。 2.标准模块文件（.bas文件）：储存所有模块级变量和用户定义的通用过 程，该类型可选。 1.2.6 工具箱窗口
一般由21个按钮形式的图标构成。除指针外的20个为标准控件（指针不是控件），每个也是一个类。如：文本类、图形类等。 1.3.1 建立一个应用程序的步骤 1.建立用户界面的对象 2.对象属性的设置 3.创建对象事件过程及编程 4.运行和调试程序 5.保存程序和生成可执行文件 1.3.2 VB程序结构和编码规则 1.程序结构 （1）最上面为通用声明段，主要编写模块级以上的变量声明、Option选项的设置等。 （2）以下为程序代码的块结构，也就是事件过程或自定义过程，这构成程序的主体。块的先后次序与程序执行次序无关。 2.编码规则 （1）代码不区分字母的大小写 （2）语句书写自由 1.同一行可书写多个语句，语句间用冒号分隔 2.一个语句可分多行写，要在本行末加续行符“-”（空格和下划线） （3）为了程序的阅读、维护和调试，可加注释 1.一般用’(撇号)注释内容 2.也可使用工具栏的文本编辑器中的注释 第二章可视化编程基础（***） 2.1.2 类和象 1.对象：具体的控件或窗体等都是对象。 2.类：工具箱上的可视图标是标准控件类，如：命令按钮类、文本框类等。 注：窗体是个特例，它既是类也是对象。 2.1.3 对象的属性、方法和事件 属性、方法和事件构成了对象的三要素。 1.属性（用来描述和反映对象特征的参数） 设置属性的两种方法： （1）在设计时，通过属性窗口直接设置 （2）在代码中设置，通过赋值实现 大多数属性都可用以上两种方法设置，这种属性称为“可读写属性”，有一些只能通过属性窗口设置，此种属性称为“只读属性” 2.方法（附属于对象的行为和动作，也就是指使对象动作的命令） 如：Text1.setFocus （其中setFocus就是方法） 3.事件（如单击、双击、装载等都是事件） 事件和方法的简单区别：