VB表达式Int（Rnd（）*3+1）产生区间（ ）内的随机整数_百度知道
VB表达式Int（Rnd（）*3+1）产生区间（ ）内的随机整数
习题7：VB表达式Int（Rnd（）*3+1）产生区间（
）内的随机整数
C.（2，3）
习题8：函数Int（Rnd（）*5）+1产生的随机整数的范围是（
我有更好的答案
一个 D第二个 D给你简单解释下 这个公式 的意思是 int（rnd *个数）+下限 比如你要产生[7 ,20]之间的连续整数，所谓下限就是指这个范围内最小的数是几（比如这道题是7），因此公式就是 int（rnd *14）+7，个数就是这个连续范围内有多少多少整数，因此求个数有个简单办法就是上限-下限+1，比如这道题的整数个数是20-7+1=14）
采纳率：84%
为您推荐：
其他类似问题
rnd的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。赞助商链接
当前位置： >>
1、单项选择题(本题共计 140 分) 1、对正实数 X 的第四位小数四舍五入的 VB 表达式是________。 A、0.001*Int(x+0.0005) C、0.001*Int(1000*x+5) B、0.001*(1000*x+0.5) D、0.001*Int(1000*(x+0.0005)) (b) (d)2、设整型变量 a、b 的当前取值分别为 200 与 20，以下赋值语句中不能正确执行的是________。 A、Text1=a/b*a B、Text1=a*a/b C、Text1=“200”*a/b D、Text1=a&b&a 3、函数 Cint(C3.5)，Int(C3.5)，Fix(C3.5)的值分别是________。 A、-3，C4，C3 B、-4，C4，C3 C、-3，C4，C4 D、-4，C3，C3 4、下面________语句，可以将列表框 List1 中当前选定的列表项的值替换成“ABC” 。 A、List1.AddItem“ABC” ，List1.ListIndex B、List1.Text=“ABC” C、List1.List(List1.ListIndex)=“ABC” D、前三项均可 (c) (b ) ‘算术运算优先于字符运算‘cint（X）将 X 小数部分四舍五入取整 ‘fix(x)是将数据 X 的小数部分舍去5、下面所列的控件属性中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。 A、List1.ListCount B、Text1.Index C、Dir1.Path D、Label1.Visible(d)6、 &FONT face=&宋体& size=&3&&在 VB 中， 下列关于控件的属性或方法中， 搭配错误的有________个。 &BR /&①Timer1.Interval &BR /&②List1.Cls &BR /&③Text1.Print &BR /&④List1.RemoveItem &BR /&⑤Vscroll1.Value &BR /&⑥Picture1.Print&/FONT& (c ) A、0 B、1 C、2 D、3 7、下列说法不正确的是________。 (d)A、VB 允许将一个数字字符赋值给一个数值型的变量 B、VB 允许使用未经说明的变量，其类型都是 Variant 类型 C、Cls 方法只清除运行时在窗体或图形框中显示的文本 D、事件过程既可建在窗体模块中，也可以建在标准模块中 ‘标准模块中只能保存通用过程 8、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的________中安排适 当的单选按钮，即可实现。 ( d)A、框架控件(Frame)或图象控件(Image) B、组合框(ComboBox)或图象控件(Image) C、组合框(ComboBox)或图片框(PictureBox) D、框架控件(Frame)或图片框(PictureBox) 9、若在一个应用程序窗体上，依次创建了 CommandButton、TextBox、Label1 等控件，则运行该程序显示窗体时，________会首先获得焦点。 A、窗体( b)B、CommandButton C、Label1 D、TextBox 10、以下有关对象属性的说法中正确的是________。 A、对象所有的属性都罗列在属性窗口列表 B、不同对象不可能有同名属性 C、不同对象的同名属性取值一定相同 D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。 11、下面的表达式的值为真的是________。 (a ) (d)A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12) B、 “ABCRG” & ”abcde” C、Int(134.69) & Cint(134.69) D、78.9/32.77 & = 97.5/43.97 AND C45.4 & 4.98 12、用窗体的________属性来设置窗体的标题。 A、Style B、Text C、Caption D、Name 13、在过程中可以用________语句定义变量。 A、Dim、Private B、Dim、Static C、Dim、Public D、Dim、Static、Private 14、能被对象所识别的动作与可执行的活动分别称为对象的________。 A、方法、事件 B、事件、方法 C、事件、属性 D、过程、方法 15、假定变量 Logic 类型是 Boolean，下面赋值语句________是正确的。 A、Logic = ‘True’ B、Logic = .True. C、Logic = # True # D、Logic = 3&4 16、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入________。 A、B、+ C、& D、# 17、执行语句&Print format(,&##,##0.00&)&，正确的输出结果是________。 A、5459.48 B、5,459.48 C、5,459.478 (2) (a) ( d) (b ) (b) (c)D、5,459.47 18、 &FONT face=&宋体& size=&3&&数学表达式 In(e&SUP&xy&/SUP&)+|arctant(z)|+cos&SUP&3&/SUP&x)对应的 VisualBasic 算术 表达式是________。&/FONT& (4)A、Ln(E^(xy)+Abs(Tan(z))+Cos^3) B、Log(Exp(xy)+Abs(Tan(z))+Cos^3) C、Ln(Exp(x*y)+Abs(Atn(z))+Cos^3) D、Log(Exp(x*y)+Abs(Atn(z))+Cos(x)^3) 19、在 VisualBasic 最基本的对象是________，它是应用程序的基石。 A、标签 B、窗体 C、文本框 D、命令按钮 20、一个可执行的 VisualBasic 中应用程序至少要包括一个________。 A、标准模块 B、类模块 C、窗体模块 D、辅助模块 21、VisualBasic 程序设计时常用的 Print、Cls 属于________。 A、属性 B、打印字库 C、方法 D、事件 22、VisualBasic 是用于开发________环境下的应用程序的工具。 A、DOS B、Windows C、DOS 和 Windows D、UNIX &FONT face=&宋体& size=&3&&数学式[ （7.5x+e&SUP&C3&/SUP&） xC1.5]xC1 对应的 VB6.0 表达式是_________。 &/FONT& 23、 (4) A、((7.5x+E(C3))*xC1.5)*xC1 B、(7.5*x+ExpC3)*xC1.5)*xC1 C、((7.5x+Exp(C3))xC1.5)*xC1 D、((7.5*x+Exp(C3))*xC1.5)*xC1 24、下列没有类型说明符的变量是_________。 A、日期型 B、长整型 C、字符串型 D、货币型 25、窗体上有 3 个按钮 Command1、Command2 和 Command3，如以下代码，该程序的功能是________。 Private Sub Command1_Click( ) Command2.Enabled=False Command3.Enabled=False End Sub (1) (1 ) (2 ) (3) (3) (2 )A、当击按钮 Command1 时，按钮 2 和按钮 3 都不可用B、当击按钮 Command1 时，按钮 2 和按钮 3 都不可见 C、当击按钮 Command1 时，按钮 2 不可用和按钮 3 不可见 D、当击按钮 Command1 时，按钮 2 不可见和按钮 3 不可用 26、工程资源管理器用来显示和管理工程所包含的________等全部项目。 A、变量和常数 B、变量和数组 C、窗体和模块 D、过程和事件 27、执行下列程序，输出结果为___________。 Private Sub Command1_Click( ) Dim b As Single B=2 / 3 Print b End Sub 4( ) (3 )A、0.7 B、1 C、0 D、0.、有如下程序代码： Private Sub Command1_Click( ) s=Sin(3.) MsgBox s End Sub 程序运行后，消息对话框显示_________。 A、0 B、1 C、1.5708 D、2 29、为了在标题中加入一个&&&符号而不是创建访问键，需要在标题中加入_________符号。 A、^&& B、%&& C、\&& D、&& 30、只能由系统触发的是___________事件。 A、Resize B、DblClick C、Timer D、Paint 31、一个应用程序_________窗体。 A、只许有一个 B、可以没有 C、应该有两个 D、可包括多个 32、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 ____过程。 (2) (4) 3( ) ( 4) (2)A、方法 B、事件 C、调动 D、编译 33、VB 表达式 Sqr(a+b)^3*2 中优先进行运算的是________。 A、Sqr 函数 B、+ C、^ D、* 34、求圆的内接正多边形的面积公式为 nRsin(π/n)Rcos(π/n)，其的对应的 VB6.0 算术表达式是 ________。其中 n 为大于 2 的正整数，R 为圆半径，π为圆周率。 (1) (2)A、n*r*sin(3.14159/n)*r*cos(3.14159/n) B、n×R×sinπ/n×R×cosπ/n C、n×R×sin(3.14159/n)*R*cos(3.14159/n) D、nRsin(π/n)Rcos(π/n) 35、以下关于事件的说法，正确的是________。 (1 )A、事件是由系统预先定义好的，能够被对象识别的动作 B、用户可以根据需要建立新的事件 C、事件的名称是可以改变的，由用户预先定义 D、不同类型的对象所能识别的事件一定不相同 36、以下________操作可以打开属性窗口。 A、单击鼠标右键 B、执行“编辑”菜单中的“属性窗口”命令 C、双击任何一个对象 D、在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项 37、执行以下程序段后，变是 c$的值为____________。 Private Sub Command1_Click( ) A$ = &Viaual BASIC programming& B$ = B$& UCase(Mid$(A$, 7, 6) & Right$(A$, 12)) Print B$ End Sub (4) (4)A、Viaual BASIC Programming B、Basic Programming C、basic programming D、BASIC PROGRAMMING 38、有如下程序： Private Sub Command1_Click( ) s = Fix(-23.1) e = Int(23.1) Print Sgn(e+s) End Sub 运行时输出的结果是__________。 A、-1 B、0 (2)C、1 D、23 39、一个窗体名不能包含_______。 A、空格和标点符号 B、小写字母 C、数字 D、下划线 40、下列语句中不能正常执行的是________。 A、print +32758+10 B、print 5+9=15 C、print &65&+12 D、print &65&&12 41、下列表达式中，值为 True 的是________。 A、UCase(&ABCD&)&=&abcd& B、14/2\3&10 MOD 4 C、Mid(“ABCD”,2,2)&Left(“ABCD”,2) D、not(Sqr(4)-3&= -2) 42、有如下程序： Private Sub Command1_Click( ) s = Fix(23.1) e = Int(-23.1) Print Sgn(e+s) End Sub 运行时输出的结果是_________。 A、-1 B、0 C、1 D、23 43、执行语句&Print Format(,&##,##0.00&)&,正确的输出结果是__________。 A、1234.57 B、1,234.57 C、1,234.56 D、01,234.57 44、日期类型（Date）在程序中运用时，日期类型必须用______符号括起来。 A、# B、@ C、＄ D、% 45、__________操作可以打开属性窗口。 A、按下 F4 键 B、单击鼠标右键 C、双击代码窗口 D、双击任何一个对象 46、在一个工程中，可以多个________。 (4) (1) (1 ) ( 2) 1( ) (3 ) (1 ) (1)A、资源文件 B、工程文件 C、机器代码文件 D、窗体文件 47、如果一个变量未指明数据类型，那么，VB 默认这个变量为______变量。 A、变体型 B、整型 C、公共 D、字符串型 48、在 VisualBasic 中执行应用程序期间，用_______临时存储数值。 A、对象 B、函数 C、变量 D、过程 49、以下__________操作不能打开属性窗口。 A、按下 F4 键 B、单击工具栏上的“属性窗口”按钮 C、执行“视图”菜单中的“属性窗口”命令 D、双击任何一个对象 50、在窗体（Name 属性为 Fomal）上画两个文本框（Name 属性分别为 Fext1 和 Text2）和一个命令按钮（Name 属性为 Command1） ，程序如下。执行后结果为___________。Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_load() Text1.Text = &123& Text2.Text = &321& End Sub (2) (4 ) (3) (1 )A、444 B、321123 C、123321 D、、用于除去字符串左侧的空格的函数是__________。 A、Rtrim( ) B、Ltrim( ) C、Lefttim( ) D、Trim( ) 52、&FONT size=&3&&在一个工程中，可以有多个________。&/FONT& A、资源文件 B、工程文件 C、标准模块文件 D、机器代码文件 53、&FONT size=&3&&关于窗体 Name 属性的叙述，正确的是________。&/FONT& A、窗体 Name 属性可以具有与别的公共对象相同的名字 (4 ) (3) (2)B、窗体 Name 属性和变量定义一样 C、窗体 Name 属性最长可达 255 个字符 D、窗体 Name 属性不以具有与别的公共对象相同的名字 &FONT size=&3&&VisualBasic6.0 的菜单除了可通过鼠标单击打开外， 也可以用键盘打开， 以上操作方法正确的________。 54、 &/FONT& (2 ) A、按钮单项后面括号中的字母键 B、先按 F10 或 Alt 键，然后再按菜单项后面括号中的字母键 C、Shift 键+菜单项后面括号中的字母键 D、Ctrl 键+菜单项后面括号中的字母键 55、&FONT size=&3&&有一名为 Menu123 的菜单项，在运行时希望把它隐藏起来，应使用的语句为____________。&/FONT& (3) A、Menu123.Enabled=False B、Menu123. Enabled =True C、Menu123.Visible=False D、Menu123.Visible=True 56、&FONT size=&3&&设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时让该菜单项变灰，应使用的语句是 ____________。&/FONT& (2)A、menu1.Enabled=True B、menu1.Enabled=False C、menu1.Visible=True D、menu1. Visible = False 57、&FONT size=&3&&要在形状控件 Shape1 中填充一种图案，可设置它的____________属性。&/FONT& A、BorderColor B、BorderStyle C、FillStyle D、FillColor 58、&FONT face=&宋体& size=&3&&当对象失去焦点时，将会发生____________事件。&/FONT& A、GetFocus B、LostFocus C、Focus D、SetFocus 59、&FONT size=&3&&列表框的____________属性代表着列表框中项目的数目。&/FONT& A、List B、ListIndex C、ListCount D、Seleted 60、&FONT size=&3&&要使文本框能显示多行文字，则需设定它的____________属性为 True。&/FONT& A、Caption B、PasswordChar C、MultiLine D、Seleted 61、使用文本框显示文字时，只能显示 8 个字符，则需设定它的____________属性为 8。 A、Caption B、PasswordChar ( 3) (3 ) ( )3 (2) 3( )C、MaxLength D、Value 62、滚动条的____________属性表示当用户单击滚动条的空白处，滑块移动的增量值。 A、Max B、Value C、SmallChange D、LargeChange 63、将文本框的 ScrollBars 属性设置为非零值，却没有效果，原因是____________。 A、文本框中没有内容 B、文本框的 MultiLine 属性值为 False C、文本框的 MultiLine 属性值为 True D、文本框的 Locked 属性值为 True 64、要使一个标签透明且具有边框，则应____________。 (2) (2 ) (4 )A、将其 BackStyle 属性设置为 0，BorderStyle 属性设置为 0 B、将其 BackStyle 属性设置为 0，BorderStyle 属性设置为 1 C、将其 BackStyle 属性设置为 1，BorderStyle 属性设置为 0 D、将其 BackStyle 属性设置为 1，BorderStyle 属性设置为 1 65、以下不属于标签属性的是____________。 A、Font B、Value C、Caption D、Index 66、以下说法正确的是________。 (2) (2)A、在设计时，单击主菜单表可以打开子菜单，单击其中的菜单命令可以执行该菜单命令的 Click 事件过程 B、在运行时，单击主菜单标题可以打开其子菜单，单击其中的菜单命令可以执行该菜单命令的 Click 事件过程 C、在设计时，单击主菜单表可以打开其子菜单，单击其中的菜单命令可以执行菜单命令的 Click 事件过程 D、在设计时，单击菜单标题不能打开其子菜单。 67、假定有一个菜单，名为 MenuItem，为了运行时使该菜单项失效，应使用的语句为________。 A、MenuItem.Enabled=False B、MenuItem.Enabled=True C、MenuItem.Visible=True D、Unload Form2 68、下列不能打开菜单编辑器的操作是________。 A、按【Ctrl+E】 B、单击工具栏中“菜单编辑器”按钮 C、执行“工具”菜单中的“菜单编辑器”命令 D、按【Shift+Alt+M】键 69、下列程序的执行结果是____________。 (4) (1 )&br /& x=C6^2 &br /&Print Sgn(x)+Abs(x)+Int(x) A、C36 B、C1 C、0 D、C72( 3)70、下列语句执行后的输出结果是____________。 (一个方格表示一个空格)&BR /&Wage = 26&BR /&Print &工资&;&BR /&Print Wage A、工资□26 B、工资□□26 C、 “工资”□26 D、 “工资”□□26(1)71、以下语句的输出结果是____________。 (一个方格表示一个空格)&BR /&a$ = &123& &BR /&b$ = &456& &BR /&Print a$; b$ A、123□456 B、123456 C、□123□456□ D、□123□□456(2)72、以下语句的结果是____________。 (一个方格表示一个空格)&BR /&a=123 &BR /&b=456 &BR /&Pb A、123□456 B、□123□456 C、□123□456□ D、□123□□456 73、语句( 4)&BR /&Print 4 + 5\6*7/8 Mod 9&BR /&的值是____________。 A、4 B、5 C、6 D、7(2)74、以下语句执行时，从键盘上输入 Zhang，执行结果是____________。&BR /&Dim a As String &BR /&a=InputBox(&Input&,&&,&Name&) &BR /&Print a A、Inprt B、Name C、Zhang D、空字符串 75、以下语句的输出结果是____________。(3)&BR /&Print Format(0,000.00&) A、12345.6 B、12,345.6 C、012,345.60 D、12,345.60 76、执行语句( 3)&BR /&Print Format(,“##,##0.00”)&BR /&后，输出结果是____________。 A、1234.57 B、1,234.57 C、1，234.567 D、1,234.56 77、不等式(2)&IMG src=&http://210.28.194.11/webexam/tkpic/vb0308.gif& /&的 VB 关系表达式是________ 。 （CA）^2 Log(Exp(K))/(ACB)≤(3CA)*(B+8)*Sin(75) A、 B、(CA)^2*Log(Exp(K))/Log(e)/(ACB)&=(3CA)*(B+8)*Sin(75/180*3.14159) C、(CA)^2Log(Exp(K))/(ACB)&=(3CA)*(B+8)*Sin(75/180) D、(CA)^2*Log(Exp(K))/Log(10)/(ACB)&=(3CA)*(B+8)*Sin(75*3.14159) 78、将算术式(2)&IMG src=&http://210.28.194.11/webexam/tkpic/vb0307.gif& /&写成 VB 表达式为________ 。 A、5*（ACB）/（1+C/(DCE)） B、5*（ACB）/C/（1+C/(DCE)） C、5*（ACB）/1+C/（1+C/(DCE) D、5*ACB/（1+C/(DCE) 79、15 除以 2 余数的C3 次方的 VB 表达式为____________。 A、MOD(15,2)^(C3) B、(15 Mod2)^(C3) C、15.0Mod2^C3.0 D、MO (2 )(2 )&FONT size=&3&&设 M=3， N=5， P=4.5， Q=2.5， 表达式 （M*N+2） /(PCQ)的计算结果为____________。 &/FONT& 80、 A、8 B、9 C、8.5 D、8.0 81、&FONT size=&3&&下列____________是双精度型变量。&/FONT& A、AAA% B、BBB＄ C、CCC！ D、DDD# 82、&FONT size=&3&&下列____________是合法的 VB 变量名。&/FONT& A、_5a B、我_AB C、5name D、Use&DASF 83、&FONT size=&3&&命令按钮不支持________事件。&/FONT& A、KeyUp B、KeyPress C、Click D、DblClick (4) (1) (4)(3 )84、&FONT size=&3&&下面属性中，用来设置对一个图形的引用的是________。&/FONT& A、DownPicture B、Disabled Picture C、Picture D、Default(3)85、 &FONT size=&3&&当命令按钮的________属性被设置为 Ture 时， 按[Esc]键与单击该命令按钮的作用相同。 &/FONT& A、Cancel B、Default C、Style D、Picture(1)86、&FONT size=&3&&对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个 Timer 事件。&/FONT& A、Name B、Enabled C、Caption D、Interval 87、&FONT size=&3&&下列____________是日期型常量。&/FONT& “I A、 am a student” B、 “江苏南京” C、#02/25/1999# D、123# 88、&FONT size=&3&&只有当一个对象的________和________属性为 True 时，它才能获得焦点。&/FONT& A、E Visible B、V Caption C、V Name D、E Caption 89、&FONT size=&3&&下列控件中，可以接收焦点的是________。&/FONT& A、文本框 B、图像框 C、框架 D、形状 90、&FONT size=&3&&运行程序后，可以按________键和指定的字母键，将焦点移到与相应标签邻近的文本框。&/FONT& (3 ) A、Ctrl B、Shift C、Alt D、Tab 91、&FONT size=&3&&下列____________是字符型常量。&/FONT& A、 am a student” “I B、 “江苏南京” C、#02/25/1999# D、123# 92、&FONT size=&3&&为了使 WordWrap 起作用，应把________设置为 True。&/FONT& A、AutoSize (1 ) ( 1) (1) (1) ( 3) (4)B、BackStyle C、Enabled D、BordStyle 93、&FONT size=&3&&设置标签属性时，为了使 WordWrap 属性起作用，应将 AutoSize 属性设置________。&/FONT& A、0 B、1 C、False D、True &FONT size=&3&&当文本框的________属性设置为 True 时， 可以滚动和选择控件中的文本， 但不能编辑。 &/FONT& 94、 A、SelStart B、SelText C、Locked D、Shape 95、&FONT size=&3&&当用户向文本框中输入新信息，或当程序把 Text 属性设置为新值从而改变文本框的 Text 属性时，将 触发________事件。&/FONT& A、Change B、GorFocus C、LostFocus D、SetFocus 96、滚动条的坐标系统与它当前的________无关。 A、数字刻度 B、位置 C、尺寸大小 D、属性 &FONT size=&3&&如果要使文本框同时具有水平滚动条和垂直滚动条， 应将 ScrollBars 设置为________。 &/FONT& 97、 A、0 B、1 C、2 D、3 98、&FONT size=&3&&当用户单击组合框中向下箭头时，将触发________事件。&/FONT& A、DropDown B、DblClik C、AddItem D、Clik 99、&FONT size=&3&&在 3 种类型的组合框中，只有________才能接收 DblClik 事件。&/FONT& A、下拉式组合框 B、简单组合框 C、下拉式列表框 D、下拉式列表框和下拉式组合框 100、&FONT size=&3&&设置列表框中列项数量的属性是________。&/FONT& A、List B、ListCount C、ListIndex D、Columns (2) (2) (1) (4) (3) (1) ( 3) (4)101、VisualBasic 中的控件分为________和________两类。 A、标准控件；ActiveX 控件 B、标准控件；内部控件 C、内部控件；外部控件 D、外部控件；ActiveX 控件(1)102、要使窗体显示时无标题栏和边框，应设置窗体的____________属性。 A、ControlBox B、BorderStyle C、MaxButton D、BackSyle( 2)103、&FONT size=&3&&若要使标签控件显示时， 不覆盖其背景内容，应设置标签控件的____________属性。 &/FONT& A、BackColor B、BorderStyle C、ForeColor D、BackStyle 104、窗体从加载到显示出来，下列最先发生的事件是____________。 A、Load B、Resize C、Activate D、Paint 105、&FONT size=&3&&要把窗体中文字加粗显示，可设置窗体的____________属性。&/FONT& A、FontBold B、FontSize C、FontUnderline D、FontItalic (1) (1 )(4)106、&FONT size=&3&&下面程序的执行是____________。&BR /&Private Sub Command1_click () &BR /&x=“321”&BR /&y= “567”&BR /&z=Val (x+y) &BR /&Print z &BR /&End Sub&/FONT& A、321 B、567 C、888 D、、 在窗体中添加一个命令按钮和一个标签(Labell)， 编写命令按钮 Command1 的 Click 事件代码： &BR /&Dim a (3) As Single &BR /&Private Sub Command1_click ()&BR /&Dim p As String&BR /&For n=0 To 3&BR /&a (n)=val (InputBox(&输入第&& n &&个数&))&BR /&Next &BR /&p=a (0) & &,& & a(1) & &,&& a (2) & &,& & a (3) &BR /&Labell.Caption=p&BR /&End Sub&BR /&程序动作后，分别在 InputBox 中输入 6，7，8，9，标签中显示 A、6，7，8，9 B、6789 C、6，7，8，9， D、6 7 8 9 108、&FONT size=&3&&如果想设置文字属性斜字，则使用下面命令中的____________。&/FONT& A、FontItalic B、FontUnderline C、FountBold D、Font (1) (1) (4 )109、&FONT size=&3&&下面 4 个方法中，可以返回字符串的高度值的是____________。&/FONT& A、TextHeight B、TextWidth C、ScaleWidth D、ScaleHeight( 1)110、&FONT size=&3&&在运行过程中要把某控件变灰，应把____________属性设置为 False。&/FONT& A、Default B、Visible C、Activate D、Enabled(4)111、 &FONT size=&3&&为了使标签 Label1 显示文字 “姓名” 可把 Label1 的____________属性设置为 ， “姓名” &/FONT& 。 A、Caption B、Text C、Word D、Name 112、&FONT size=&3&&能够获得一个文本框中被选取文本的内容的属性是____________。&/FONT& A、Text B、Length C、SelStart D、SelText 113、&FONT size=&3&&要想改变窗体边框线型，可使用的属性是____________。&/FONT& A、FonStyle B、BorderStyle C、BackStyle D、Border 114、&FONT size=&3&&VisualBasic 中的工程文件的扩展名是____________。&/FONT& A、.reg B、.frm C、.bas D、.vbp 115、&FONT size=&3&&下面语句的输出结果是____________。&BR /&x=10:y=3&BR /&Print (x*y)\8&/FONT& A、4 B、3 C、5 D、6 116、&FONT size=&3&&MsgBox 函数返回值的类型为____________。&/FONT& A、整体数值 B、字符串 C、变体 D、数值或字符串 117、&FONT size=&3&&VisualBasic 中的标准模块文件的扩展名是____________。&/FONT& A、.reg B、.frm C、.bas (3) (2) (2) 4( ) (2) (4)(1)D、.vbp 118、&FONT size=&3&&正确语句的输出结果是____________。&BR /&Print Format(0,00.00&)&/FONT& A、 B、98,76.543 C、98,76543 D、098,76.54 119、&FONT size=&3&&VisualBasic 中的窗体文件的扩展名是____________。&/FONT& A、.reg B、.frm C、.bas D、.vbp 120、&FONT size=&3&&下面 VisualBasic6.0 工具栏的说法不正确的是____________。&/FONT& A、工具栏可以浮动 B、工具栏一定在菜单栏的下方 C、工具栏可以显示或隐藏 D、VB 有多个工具栏 121、&FONT size=&3&&用于字符串连接的运算符是____________。&/FONT& A、& B、+ C、And D、A、B 都可以 122、以下说法不正确的是____________。 (1) (4 ) ( 2) (2 ) (4 )A、Chr＄( )函数的作用是把自变量表达式的值转换为相应的 ASCII 码 B、Val( )函数用来把自变量字符串转换为数值 C、Log( )函数产生一个 0-1 之间的单精度浮点数 D、Rnd( )函数产生一个 0-1 之间的单精度浮点数 123、下列可以作为 VisualBasic 变量名的是____________。 A、Chinese＄ B、X(X+Y) C、123BOOK D、BOOK-1 124、打开立即窗口的快捷键是____________。 A、Ctrl+G B、Ctrl+E C、Ctrl+F D、Ctrl+F 125、以下语句的输出结果是____________。 print Format s(,“000，000，000”) A、000,003.678 B、003,678.23 C、003,678,234 D、000,003,678 126、如果在立即窗口内执行以下操作：____________。&BR /&X=10&BR /&Y=5&BR /&Print x^2 &= y^3&BR /&则输出的结 果是 (4) A、1 (4 ) (1) (1)B、0 C、True D、False 127、表达式(-1)*Sgn( -100+Int(Rnd*100) )的值是____________。 A、随机数 B、0 C、1 D、-1 128、下列叙述不正确的是____________。 ( 3) (3)A、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 B、注释语句可以作为代码中的一行 C、注释语句不可以放在其他语句的后面 D、代码中加入注释语句的目的是提高程序的可读性 129、如果 a 是一个正实数，对 x 的第 3 位小数四舍五入的表达式是____________。 A、0.01*Int(a+0.005) B、0.01*Int(a+0.05) C、0.01*Int(100*(a+0.005) D、0.01*Int(100*(a+0.05)) 130、不能正确表示条件“两个整型变量 X 和 Y 之一为 0，但不能同时为 0”的布尔表达式是________。 A、X*Y=0 And (X&&0 Or Y&&0) B、( X=0 Or Y=0 ) And (X&&0 Or Y&&0) C、Not ( (X=0 Or Y=0) And (X&&0 Or Y&&0) ) D、X*Y=0 And X+Y&&0 131、函数 In(Rnd()*11)+10 的值的范围是____________。 A、[10，20] B、[0，20] C、[10，10] D、[10，11] 132、满足“当 a 的值是偶数时为 0，是奇数时为“1”的要求的表达式是____________。 A、a Mod 2 = 0 B、Not a Mod 2&&0 C、Not (a Mod 2) D、(a\2*2-a)=0 133、下述选项中，正确的逻辑表达式是____________。 A、A&B&C B、A&B And B&C C、A&B...And B&C D、A&BAnd&C 134、VisualBasic 的一行可以写多条语句，语句之间用____________隔开。 A、逗号 B、分号 C、顿号 D、冒号 135、VisulBasic 的一条语句可以写在多行，但要用续行符，续行符应为____________。 (1) (4) ( 2) (1) (1) (3) (3 )A、一个空格加一个下划字符( _ ) B、一个下划字符( _ ) C、直接回车 D、一空格加一相连字符(-) 136、下述语句段运行时的显示结果是____________。&BR /&CLS&BR /&x=2.34+8 &BR /&print Len(x) A、5 B、10 C、11 D、非法使用，无输出 137、以下各项中，____________不是一个合法的字符串。 A、&Visual& B、&& C、#Basic# D、&等级考试& 138、&FONT size=&3&&表达式 3*4^5/2+3^2 的值是____________。&/FONT& A、66 B、67 C、68 D、65 139、&FONT size=&3&&判断在文本框内是否按下了回车键，应通过____________事件过程。&/FONT& A、Change B、KeyPress C、GotFocus D、Click 140、&FONT size=&3&&如果将布尔常量 False 赋值给一个整形变量，则整型变量的值为____________。&/FONT& A、0 B、-1 C、True D、False 2、填空题(本题共计 43 分) 1、执行下面的程序，击窗体后在窗体上显示的第一行结果是___(1)______，第三行结果是____(2)_______。 Private Sub Form_click() Dim mystr, mystr1, mysrr2 As String mystr1 = &B& For i = 1 To 3 mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1 Print mystr mystr1 = Chr(Asc(mystr1) + i) Next i End Sub 2、以下程序段的输出结果是_____ 。 Dim j As Integer,s As Integer (1 ) (2) (2) (3) (1)Do s=s+j j=j+1 Loop Until j=5 Print &s&; s 3、执行下面的程序段后，s 的值为_____ 。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+i Next i print s 4、组合框有三种不同的风格：下拉式组合框、 __(1)___和下拉式列表框。可通过___(2)___ 属性来设置。 5、可使用列表框的______ 方法向列表框中增加一个项目。 6、列表框的______ 属性决定列表框中项目在程序运行期间是否按字母顺序排列，如果该属性为 True，则按字母顺序排列 显示，False 则按项目加入的先后顺序排列显示。 7、窗体上有一按钮和一个列表框，执行下列程序后的输出结果为____ 。 Private Sub Command1_Click( ) List1.AddItem &China& List1.AddItem &USA& List1.AddItem &Japan&,1 Print List1.List(2) End Sub 8、要使文本框 Txt1 中显示的字符为黑体，使用的语句是____ 。 9、把框架的____ 属性设置为 False，则框架中的所有控件将不再响应用户的操作。 10、滚动条的_______ 属性表示滚动条内滑块所处位置所代表的值。 11、可通过列表框的___(1)___属性或 List(___(2)_____）来取得列表框中被选中的选项。 12、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Y As String X=5 Y=X & Space(3) & X Print X; Print Trim(Y);Len(Trim(Y)) End Sub 该程序的执行结果是_________。 13、已知 K=2，J=3，A=True，则 VB 表达式(K-J&=K)AND(NOT A)OR(K+J&=J)的值为 _____。 14、表示&A+B+C 大于等于 255，或 A 与 B 分别大于 90 且 C 大于 80&的 VB 表达式的 ____ 15、表示&A 和 B 之一为零但不同时为零&的 VB 表达式为______ 。 16、当文本框中的内容改变时，将会发生_____ 事件。 17、文本框的____ 属性用来表示文本框中被选定的字符长度。 18、在 VB 中一个汉字的长度等于____ 个英文字母的长度。 19、文本框的_____ 属性用来设置在文本框中显示的最多字符个数。 20、要使文本框可以显示多行文本，应把文本框的__(1)___ 属性设置为 True。 21、要把 Label 控件的背景设置为透明，可把该控件的__(1)__ 属性设置为__(2)__ 。22、要把在 Label 控件中显示的文字颜色设置为红色，应设置 Label 控件的 __(1)__属性。 23、要把 Label 控件中显示的文字设置成左对齐，应设置 Label 控件的-__(1)___ 属性。 24、__(1)__属性决定了按 Tab 键时，焦点在各个控件移动的顺序。 25、在窗体中添加一个命令按钮 Command1 和一个文本框 Text1，并编写如下程序代码。执行程序单击命令按钮后，文本框 中的结果是 ______ 。 Option Explicit Private Sub Command1_Click( ) Dim s As String s=String(3,&#&)+&,&+String(3,&#&) s=Format(1234567,s) Text1.Text=&s=& & s End Sub 26、有下列程序： Private Sub Command1_Click( ) a$=&Good Morning& b$=&Even& c$=Left$(a$,4)+LCase$(b$)+Right$(a$,3) Print c$ End Sub 运行后窗体上显示的是 ______ 。 27、有如下程序代码： Private Sub Command1_Click() m$ =&XYZ: n$ = &xyz& k$ = LCase$(m$) j$ = UCase$(n$) MsgBox Asc(k$ + j$) End Sub 程序运行后消息对话框显示 __________ 。 28、能正确产生[1,30]之间的随机整数的表达式是 ________ 。 29、界面上没有调试工具栏，可通过选中&视图&菜单中的 _____&调试&把它显示出来。 30、表达式 Fix(-48.65)+Int(-52.15)的值是________。 31、已知 A=7.5，B=2，C=-3.6，表达式 a&b and c&a or a&b and not c&b 的值为___(1)____. 32、X 是小于 100 的非负数，对应的表达式是____(1)______. 33、A 的绝对值大于等于 B 同时不等于 C 的表达式是____(1)____. 34、关系式-5&=X&=5 所对应的表达式是_____(1)______ 35、下面程序运行后，输出的结果为____(1)____。 Private Sub Command1_Click( ) x$ = &NANJING& y$ = &BASIC& z$ = &INPUT& z$ = InStr(Left$(x$,2)+Right$(y$,2),z$) Print z$ End Sub36、有下列程序： Private Sub Command1_Click( ) x$ = &Apply& y$ = &Action& z$ = &Study& z$ = Left$(x$,4)+Mid(y,4,1)+LCase$(z)+&&+z$ Print z$ End Sub 运行后窗体上显示的是_______ 。 37、A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\5 的值为______。 38、表达式 7^2Mod 5^2\3 的值为__________ 39、2Sinx+3Cosx+Tan2x+LnxLny 的 VB 表达式为________ 3、问答题(本题共计 0 分)VB123 参考答案1.d,2.b,3.b,4.c,5.d,6.c,7.d,8.d,9.b,10.d,11.a,12.c,13.b,14.b,15.d,16.a,17.b,18.d,19.b,20.c,21.c,22.b,23.d,24.a,25.a,26.c,27.d,28.b,29.d ,30.c,31.d,32.b,33.b,34.a,35.a,36.d,37.d,38.b,39.a,40.a,41.c,42.a,43.b,44.a,45.a,46.d,47.a,48.c,49.d,50.c,51.b,52.c,53.d,54.b,55.c,56.b,57.c ,58.b,59.c,60.c,61.c,62.d,63.b,64.b,65.b,66.b,67.a,68.d,69.c,70.a,71.b,72.d,73.b,74.c,75.c,76.b,77.b,78.b,79.b,80.c,81.d,82.a,83.d,84.c,85.a ,86.d,87.c,88.a,89.a,90.c,91.a,92.a,93.d,94.c,95.a,96.c,97.d,98.a,99.b,100.b,101.a,102.b,103.d,104.a,105.a,106.d,107.a,108.a,109.a,110.d,1 11.a,112.d,113.b,114.d,115.b,116.b,117.c,118.d,119.b,120.b,121.d,122.a,123.a,124.a,125.d,126.d,127.c,128.c,129.c,130.c,131.a,132.a,133. b,134.d,135.a,136.a,137.c,138.b,139.b,140.a1.Bb,Ee,2.s=10,3.19,4.简单组合框,Style,5.AddItem,6.Sorted,7.USA,8.Txt1.FontName=“黑体”,9.Enabled,10.Value,11.Text,List （列表框名.ListIndex）,12.5 5 5 5,13.True,14.A+B+C&=255 Or A&90 And B&90 And C&80,15.A=0 xorb=0,16.Change,17.SelLength,18.1,19.MaxLength,20.MultiLine,21.BackStyle,0(Transparent),22.ForeColor,23.Alignment,24.TabIndex,25. s=.Goodevening,27.120,28.Int(Rnd()*30)+1,29.工具栏,30.-101,31.false,32.x&100 and x&=0,33.abs(a)&=b and abs(a)&&c,34.X&=-5 and X&=5,35.0,36.ApplistudyStudy,37.2,38.1,39.2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)vbxt45 满分：192 分 姓名：________1、填空题(本题共计 92 分) 1、下列程序的功能是输出如下数列的前 20 项，按每行 5 个数的形式输出。 1，1，2，3，5，8，13,...... Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,b, Do While(i&=20) c=a+b t=b b=a+b ____(1)____ Print c, If____(2)____ Then Print End If _____(3)_____ Loop 2、Visual Basic 中的控件分为两类，一类是__(1)____ ，另一类是___(2)___ 。 在窗体中添加一个命令按钮 Command1， 并编写如下程序代码。 执行程序单击命令按钮后， 文本框中的结果是_________。 3、Option Explicit Private Sub Command1_Click( ) Dim x(3),i as integer For i=1 To 3 x(i)=i+i^2 Next i Print x(i-1) End Sub 4、以下程序的输出结果是______ 。 x=12.7 x=Int(x+0.5) Print x 5、下列程序执行时，从键盘上依次输入 123 和 234，则程序的输出结果是_____。 Dim a As Integer,b As Integer a=InputBox(&请输入第一个整数&,& &) b=InputBox(&请输入第二个整数&,& &) Print a+b 6、下列程序执行时，从键盘上依次输入 123 和 234，则程序的输出结果是__(1)___。 a=InputBox(&请输入第一个整数&) b=InputBox(&请输入第二个整数&) Print a+b 7、语句 Print &125+32=&;125+32 执行后，窗体上打印结果是_______ . 8、下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空： Const PassWord=&& Dim inpass As String Inpass=_______(&请输入你的密码&,&输入密码&) If inpass=PassWord Then Exit Sub Else _______&对不起！你是非法用户。&，vbOKOnly+vbCritical,&拒绝& Unload Me End If 9、下面程序运行后，文本框中的数据为。 Private Sub Command1_Click( ) For a=1 To 5 y=1 For b=1 To 10 For c=1 To 6 x=x+1 y=y+1 Next c Next b Next a Text1.Text=yEnd Sub 10、语句 Print 12;T24 的执行结果是 _______. 11、下列函数调用时弹出的对话框中按钮的个数为________ 。 MsgBox (&程序非法！&,vbAbortRetryIgnore,&消息提示&) 12、InputBox 函数返回值的类型为_________。 13、下面程序的功能是判断 100～999 之间的所有素数，所谓素数是指只能被 1 和它本身整除的数。完善下列程序。 Private Sub Form_Click( ) Dim i As Integer Dim k As integer For i=100 To 999 For k=2 To i-1 If ________Then _________ End If Next k If ________Then Print i End If Next i End Sub 14、 在窗体上画一个命令按钮 Command1。 如下程序的功能是将一个个位数转换成以二进制形式的字符串， 如果长度小于 4， 将在其前面补&0&至 4 位。 Private Sub Command1_Click( ) Dim t As Integer,b As String,k As Integer t=InputBox(&输入一个 8&) Do Until t&1 k=t Mod 2 b=CStr(k)& b t=t\2 Loop If Len(b)& 4 Then b=&0000& & b t=______ Else t=b End If Print t End Sub 程序运行后，单击命令按钮，在输入框输入数值&8&;，则窗体上显示的内容是_____。 15、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如 6 的因子为 1，2，3，其和为 6，则 6 为完全数。编 程找出 1～100 之间的所有完全数。完善下列程序。 Private Sub Command1_Click( ) Dim a As Integer, b As Integer, c As Integer, i As Integer For a = 2 To 100____(1)_____ For b = 2 To a-1 If a Mod b = 0 Then c = b+c End If Next b If___(2)___Then Print a End If Next a End Sub 16、找出 1～10000 之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。 例如，25 的平方为 625，25 是同构数。完善下列程序。程序代码如下： Private Sub Command1_Click( ) Dim i As Integer, y As Long For x = 1 To 1000 y=x*x If ___(1)___ Then Print x End If Next x End Sub 17、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程 序。 Option Explicit Private Sub Command1_Click( ) Dim s As String,k As Integer Dim r As String,i As Integer,t As String s=&aa11bb22Cc33& For i=1 To Len(s) t=_____(1)_____ If t&=&a&And t&=&z&Or t&=&A&And t&=&Z&Then r=r & t End If Next i Print r End Sub 18、求满足如下条件的三位数，它除以 11 所得的商等于各位数字的平方和。例如： 550/11=50=5*5+5*5+0。完善下列程序。程序代码如下： Private Sub Form_Click( ) Dim a As Integer,b As Integer,c As Integer,n As Integer,j As Integer For a= __(1)__ For b=0 To 9 For c=0 To 9n= __(2)__ If (n Mod 11 =0)And(n\11=a*a+b*b+c*c)Then P&/11=&;n/11;&=&；a*a;b*b;c*c End If Next c Next b Next a End Sub 19、在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序： Private Sub Command1_Click( ) Dim t As Integer,b As String,k As Integer t=InputBox(&输入一个 8&) Do Until t&1 k=t Mod 2 b=CStr(k) & b t=t\2 Loop If Len(b)&4 Then b=&0000& & b t=Right(b,4) Else t=b End If Print t End Sub 程序运行后，如果单击命令按钮，如在输入框输入数值&8&,则在窗体上显示的内容是 ______ 。 20、执行下面的程序，在窗体上显示的输出结果的第一行是 ______ ，第三行是 ______ ，Form_Click( )事件过程中的第二 个 For-Next 循环共执行了 ______ 次。 Option Explicit Option Base 1 Private Sub Form_Click( ) Dim x(6) As Integer,I As Integer,j As Integer For i=1 To 6 x(i)=i^2 Print x(i); Next i Print For j=1 To i-2 Call sub1(x(j),j) Print j Next j End Sub Public Sub sub1(x As Integer,m As Integer) If x-m&=2 Thenm=m+2 Else m=m+3 End If End Sub 21、用以下程序找出 50 以内所有能构成直角三角形的整数组。阅读下列程序，请在______处填上正确内容。 Private Sub Command1_Click( ) For a =1 To 50 For b =a To 50 c=Sqr(a^2+b^2) If____________Then Pb;c Next b Next a End Sub 22、有如下程序： Private Sub Command1_Click( ) x=5 e=Sgn(x)+1 If e=1 Then y=x*x+1 ElseIf e=2 Then y=5*x+5 Else y=0 End If Print y End Sub 运行时输出的结果是 ______ 。 23、以下程序可计算自然数 e 的值，要求精确到 10^(-15)请将程序补充完整。已知 e 的计算公式为 e=1+1/1!+1/2!+...+1/n!。 Private Sub Command1_Click() _____ n=0:term=1:t=1 Do n=n+1 t=t/n ____ Loop While t&1.0E-15 Text1.Text=term End Sub 24、下面程序的功能是统计随机产生的 10 个三位正整数中偶数与奇数的个数，并求出该 10 个数的总和。请将程序补充完 整。 Option Explicit Private Sub Form_Click() Dim x As Integer, s1 As IntegerDim n1 As Integer, i As Integer Randomize For i = 1 To 10 x= __(1)____ P If x Mod 2 = 0 Then ___(2)___ else n2 = n2 + 1 End If s=s+x Next i Print Print&奇数个数：&;n1;&偶数个数为：&;n2;&和为&;s End Sub 25、有如下程序： Private Sub Command1_Click( ) a=Val(InputBox(&请输入&)) b=Val(InputBox(&请输入&)) x=a+b If a&b Then x = a-b Text1.Text=x End Sub 运行后，从 InputBox 对话框中连续输入 3 和 4，文本框中显示的是 _________ ；若连续输入 4 和 3，文本框中又显示的是 _________。 26、已知下列程序运行结果是 ABCD，请将程序补充完整。 Private Sub Command1_Click( ) a=&& For n=65 To 68 a=a+______ Next n Print a End Sub 27、下列程序计算１！ ，３！ ，５！ ，７！的值。完善下列程序。 Private Sub Command1_Click( ) for x = 1 To 7 Step 2 _______ For y = 1 To x fact = fact * y Next y P &! =&; fact Next x End Sub 28、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式为：sum = 1+2+2^2+2^3+2^4+2^5+...+2^63，相应的计算程序如下，请将程序补充完整。 Private Sub Command1_Click( ) Dim x As Single, y As Single Sum = 0 For n = 0 To 63 x =__________ Sum = sum + x Next n Print &麦子的总颗粒数为：&；Sum End Sub 29、下列程序的运行结果为________。 Private Sub Command1_Click( ) x=1 For k = 1 To 3 If k = 1 Then a = x * x If k&= 2 Then a = x * x+1 If k &= 3 Then a = x * x+2 P Next k End Sub 30、下列程序执行后，打印结果是______ 。 Option Explicit Private Sub Command1_Click( ) Dim i As Integer Dim sum As Integer sum = 0 For i = 3 To 100 If i Mod 3 = 0 And i Mod 11 = 0 Then sum = sum + i End If Next i Print sum End Sub 31、运行下面程序，单击窗体后在窗体上显示的内容是__ (1)__ ；若将程序中的 A 语句和 B 语句调换位置，再次执行程序， 单击窗体后在窗体上显示的内容是 ___(2) __。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 0: b = 0 Do While a &= 8 a=a+2 b=b+a*a Loop Print a, b End Sub 'A 'B32、运行下面程序，单击窗体后在窗体上显示的第一行结果是___(1)____；第二行结果是____(2)_____；第三行结果是 ____(3)______。 Private Sub Form_Click() Dim i As Integer, s As Integer For i = 1 To 10 s=s+i If s & 10 Then Print s s=0 End If Next i End Sub 33、下列程序运行的结果为___(1)___ 。执行完该程序后，共循环了____(2)___次。 Private Sub Command1_Click( ) Dim intsum As Integer Dim i As Integer For i = 1 To 17 Step 2 intsum = intsum+i Next i Print intsum End Sub 34、输入一个三位的正整数，将之反向输出。如输入 123，则输出 321，完善下列程序。 Private Sub Command1_Click( ) Dim a As Integer, b As Integer, c As Integer, m As Integer m = InputBox(&输入一个正整数&) a = m\100 b = (m-a * 100)\10 c = ___(1)___ MsgBox &结果=&+ Str(c*100+b*10+a) End Sub 35、窗体上有 3 个文本框 Text1,Text2 和 Text3,一个 Command1。为完成已知圆直径求圆周长和圆面积的功能，完善下列程 序。 Private Sub Command1_Click() Dim d As Single d = Val(Text1.Text) If d& 0 Then Text2.Text = 3.14159 * d Text3.Text = ___(1)____ End If End Sub 36、在下面程序运行时键入 2，则该程序的运行结果是___(1)___ Private Sub Command1_Click() x = InputBox(&请输入一个整数&) Select Case xCase Is& -3 Print (x + 1) / (x + 3) Case -3 To 3 Print x * x + 1 Case Is&3 Print (x + 1) / (x - 3) End Select End Sub 37、火车原以均匀速度 v0(km/h)行驶，从 t = 10min 时开始匀加速度运行，加速度为 a(km/h2)。问经过 t=50mm 时火车行驶 的距离(m)(从 t =0 算起)。要求打印出的数值取小数点后二位，对第三位按四舍五入处理。补充如下程序。 Private Sub Command1_Click( ) Dim v0 As Single, v As Single, s As String v0=InputBox (&输入初速度 a&，1) v0 = v0 *
t1 = 10 *60 t2 = 50 *50 t = ___(1)____ s = v0 * t2+0.5 *a * t * t s = Int (s * 100 + 0.5) Print &s =&; s End Sub 38、下面程序的功能是统计随机产生的 10 个三位正整数中被 5 整除数的个数，并求出这些数的总和。完善程序 Option Explicit Private Sub Form_Click( ) Dim x As Integer, sl As Integer Dim n1 As Integer,i As Integer Randomize For i = 1 To 10 x =____(1)_____ P If x Mod 5 = 0 Then ___(2)_____ sl = sl+x End If Next i Print &被 5 整除数的个数&,n1;&和为&; sl End Sub 39、执行下面的程序段后，s 的值为_________。 Private Sub Command1_Click( ) s=5 For i = 2.6 To 4.9 Step 0.6 s = s+1 Next iPrint s End Sub 40、本程序用于验证一个自然数 N 的立方等于 N 个连续奇数之和，其中最大的奇数 P=N*（N+1）-1 例如，43=19+17+13，最大奇数为 19。 当程序执行后，分别给对话框输入 4 和 6 时，问计算结果分别为__(1)_____和___(2)___ 。 Private Sub Command1_Click( ) Dim s As String n = InputBox(&输入一个自然数&) num = n * n * n p = n * (n + 1)-1 x=p k=1 Do Until x = num p = p-2 x=x+p k=k+1 Loop Print P p End Sub 41、输入一个正整数 k，求各位数字之和。请将下列程序补充完整。 程序代码如下： Option Explicit Private Sub Command1_Click( ) Dim Sum As Integer, k As Long k = Val(Text1.Text) Do While K&0 Sum = Sum + ____(1)__ k = k\10 Loop Text2.Text = Str(Sum) End Sub 42、用 100 元买 100 鸡，条件是公鸡 x 每只 5 元，母鸡 y 每只 3 元，小鸡 z 只 1 元 3 只。程序中的选项是_______。 Private Sub Command1_Click( ) For x = 0 To 100 For y = 0 To 100 z=100-x-y If ____(1)____Then Print x, y, z Next y Next x End Sub 43、编写一个求给定 8 位二进制数的反码的程序。将程序补充完整。 Private Sub Command1_Click( ) Dim yuanma As String, fanma As String, fa As String yuanma = Text1.Textfanma = && For i = ____(1)____ fa = Mid(yuanma,i,1) Select Case Val(fa) Case 0 fa = &1& Case 1 fa = &0& End Select fanma=fanma+fa Next i text2.Text=___(2)_______ End Sub 44、执行下面的程序后，b 的值为_______ a=300:b=20:a=a+b:b=a-b:a=a-b 45、下面程序的运行结果是在窗体中显示的： Private Sub Command1_Click( ) For k=1 To 4 If k&=1 Then a =2+k If k&=2 Then a =2-k If k&=3 Then a =2*k If k&=4 Then a =k/4 P Next k End Sub 运行后窗体上显示的是________。 46、下列程序执行后，分别输入 54，21，38，打印结果是_____________ Private Sub Command1_Click( ) Dim x%, y%, z% x=InputBox(&x&) y=InputBox(&y&) z=InputBox(&z&) If x&y Then t=x：x=y: y=t If x&z Then t=x: x=z: z=t If y&z Then t=y: y=z: z=t P z End Sub 47、下面是一个求两位数的程序，要求每两位数的两个数码各不相同，并统计有多少个这样的两位数，显示所有满足条件 的两位数。阅读程序，并填空。 Private Sub Command1_Click( ) n=0 For a=____(1)_______ For b=0 To 9 If a&&b Thenk=10*a+b n=___(2)_____ P End If Next __(3)__ ,__(4)___ Print number=&, n End Sub 48、以下循环运行结果为_________。 intl=0 Do While int1&=10 int1=int1+1 Loop 49、两质数的差为 2，称此对质数为质数对，下列程序是找出 100 以内的质数对，并成对显示结果。其中，函数 IsP 判断参 数 m 是否为质数。 Public Function IsP(m) As Boolean Dim i% ___________ For i=2 To Int(Sqr(m)) If __________ Then IsP=False Next i End Function Private Sub Commandl_Click() Dim i% Pl=IsP(3) For i=5 To 100 Step 2 p2=IsP(i) If __________Then Print i-2,i p1 __________ Next i End Sub 50、下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。 Private Sub Form_Click() Dim a,I%,n%,m% a=Array(19,17,15,13,11,9,7,5,3,1) n=Ubound(a) ReDim___(1)______ m=Val(InputBox(&输入欲插入的数&)) For i=Ubound(a)-1 To 0 Step -1 If m&=a(I) Then ____(2)_____ ElseIf I=0 Then a(I)=m Else______(3)________ Exit For End If Next i For i=0 To Ubound(A) Print a(i) Next i End Sub 51、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的&ABCDEFG&变换成&GFEDCBA&。 Private Sub Command1_Click() Dim a$,i%,c$，d$ a=inputBox$(&输入字符串&) n=____(1)_____ For I=1 To ____(2)__________ c=Mid(a,I,1) Mid(a,I,1)=_____(3)_____ ____(4)______=c Next i Print a End Sub 52、以下程序运行后，si、sj、sk 的结果分别是___(1)__，i、j、k 的结果分别是___(2)___。 Private Sub Command1_Click() si=0:sj=0 For i=1 To 3 For j=1 To i sk=0 For k= j To 3 sk=sk+1 Next k sj=sj+1 Next j sj=si+1 Next i End Sub 53、下面程序段，显示的结果是_________ 。 Dim x x=Int(Rnd)+5 Select Case x Case 5 Print &优秀& Case 4 Print &良好& Case 3 Print &通过&case Else Print &不通过& End Select 54、执行下面的程序，单击窗体后在窗体上显示的第一行结果是___(1)_____；第三行结果是____(2)_____。Private Sub Form_Click( ) Dim Mystr As String, Mystr1 As String, Mystr2 As String Mystr1 =&B& for i = 1 To 3 Mystr2 = Lcase(Mystr1) Mystr1 = Mystr1 + Mystr2 Mystr = Mystr + Mystr1 Print Mystr Mystr1 = Chr(Asc(Mystr1) + I) Next i End Sub 55、运行下面的程序，就会出现___(1)___，按____(2)____键可以终止程序运行。 Private Sub Form_Click ( ) Dim i As Integer Do While i&10 i =i * 20 Loop End Sub 56、运行下面的程序，单击窗体后在窗体上显示的内容是___________。 Private Sub Form_Click( ) For i = 1 To 10 Step 2 Print I; Next I End Sub 57、以下循环迭代了______ 次。 Int1 = 10 Do While int1&=1 Int1=Int1-1 Loop 2、单项选择题(本题共计 100 分) 1、 &FONT size=&3&&在设计列表框时， 若实现输入多行文字的目的， 应使用____________键实现文本的换行。 &/FONT& A、Enter B、Alt+Enter C、Ctrl+Shift+Enter D、Ctrl+Enter 2、&FONT size=&3&&想要获得文本框当前插入点所在位置，需要设置文本框的____________属性。&/FONT& A、SelLength B、Left C、SelStart D、Position (3) (4)3、&FONT size=&3&&如果 Textl 控件的 Locked 属性设置为 True，则下述说法正确的是____________。&/FONT& A、在程序代码中不可以修改文本框的内容 B、在当前属性窗口中不可以修改 Textl 属性值 C、程序运行时用户不可以在界面上修改文本框中的内容 D、以上皆错 4、&FONT size=&3&&下列可以将变量 A、B 互换的语句是____________。&/FONT& A、A=B: B=C: C=A B、A=C: C=A C、A=(A+B)/2: B=(A-B)/2 D、A=A+B: B=A-B: A=A-B 5、&FONT size=&3&&任何控件都有____________属性。&/FONT& A、Caption B、BorderStyle C、Name D、BackColor 6、&FONT size=&3&&为了使标签能够显示所指定的文本，应设置____________属性。&/FONT& A、Caption B、Text C、SelText D、Name 7、&FONT size=&3&&设置一个文本框的状态为失效，应利用____________属性。&/FONT& A、Enablde B、Cancel C、Default D、Vusible (1) (1 ) (3) ( 4)(4)8、&FONT size=&3&&某些对象有只读属性，如 Name 属性，这种属性在设计阶段设置，不能在运行期间改变。以下哪种属性 为只读属性。&/FONT& A、ControBox B、Enabled C、BorderStyle D、WindowState 9、&FONT size=&3&&要使标签所在处透明显示背景，应设置 BorderStyle 属性的值为____________。&/FONT& A、Ture B、False C、1 D、0 10、&FONT size=&3&&能够改变窗体边框类型属性是____________。&/FONT& A、Border B、Border Style C、BackStyle D、Caption 11、&FONT size=&3&&想要设置窗体状态为不显示控制菜单，应设置下列____________属性。&/FONT& A、Style B、Picture (3) ( 2) (4) (3)C、ControlBox D、Caption 12、&FONT size=&3&&要设置命令按钮为图形形式的按钮，应设置下列____________属性。&/FONT& A、Style B、DownPicture C、Picture D、Image 13、&FONT size=&3&&下列选项中，更改____________属性，可以对窗体的标题内容进行设置。&/FONT& A、Text B、Name C、Name D、Caption 14、&FONT size=&3&&VisualBasic 中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、____________、查询、图 表、工具、外接程序、窗口和帮助。&/FONT& A、运行 B、查看 C、属性 D、浏览 15、&FONT size=&3&&VisualBasic 标题栏上显示了应用程序的____________。&/FONT& A、大小 B、位置 C、名称 D、状态 16、&FONT size=&3&&以下说法错误的是____________。&/FONT& (3) (3) (1) (4) (1)A、单击标准工具栏中的属性按钮可以打开属性窗口，相当于执行“视图”菜单下的“属性窗口”命令 B、通常情况下，集成环境中只显示标准工具栏，其他工具栏可通过视图菜单中的“工具栏”命令打开 C、SDI 是指多文档界面，MDI 是指单文档界面。在默认情况下，Visual Basic 集成开发环境是单文档界面方式，可在 “工具”菜单下的选项命令中的“高级”选项卡下进行 MDI 与 SDI 的互换 D、当一个程序包括两个以上的工程时，这些工程构成一个工程组，其扩展名为.vbg 17、&FONT size=&3&&主窗口包括____________。&/FONT& A、标题栏 B、菜单栏 C、工具栏 D、以上皆选 18、&FONT size=&3&&VisualBasic 集成的主窗口中包括____________。&/FONT& A、标题栏 B、工具栏 C、菜单栏 D、以上三者均有 19、&FONT size=&3&&确定控件尺寸的属性是____________。&/FONT& A、Width 和 Height B、Top 和 Left C、Width 或 Height D、Top 或 Left (1) (4) (4 )20、&FONT size=&3&&工程组文件扩展名为____________。&/FONT& A、vcp B、vcg C、cls D、bas(2)21、&FONT size=&3&&以下有关控件数组的说法中错误的是________。&/FONT& A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件组中的每一个控件共离同样的事件过程 C、控件数组中的每个元素的下标由控件的 Index 属性指定 D、同一控件数组中的元素只能有相同的属性设置值(4)22、&FONT size=&3&&描述 X、Y 中只有一个小于 Z 的逻辑表达式是________。&/FONT& A、X＜Z And Y＜Z B、X＜Z Or Y＜Z C、X＜Z Xor Y＜Z D、X＜Y＜Z 23、&FONT size=&3&&下列语句运行时系统给出错误提示的是________。&/FONT& A、Print - B、Print ”1E2”+8 C、Print ”AB”&128 D、Print 3=2=4 (1)(3 )24、&FONT size=&3&&设 a 为 Integer 型变量，s 为 Single 型变量，把 3.75 赋值给 s 后，再执行下列某一语句，则在文本框中 显示的结果与执行语句 a=s:Text1=a 的结果相同的有________个。 &BR /&①a=Int(s):Text1=a &BR /&②a=Fix(s):Text1=a &BR /&③ a=CInt(s):Text1=a &BR /&④a=Format(s,”#####”):Text1=a&/FONT& A、1 B、2 C、3 D、4 25、&FONT size=&3&&对于某对象的 SetFocus 与 GotFocus 描述正确的是________。&/FONT& A、SetFocus 是方法，GotFocus 是事件 B、SetFocus 是事件，GotFocus 是事件 C、SetFocus 是方法，GotFocus 是方法 D、SetFocus 是事件，GotFocus 是方法 26、&FONT size=&3&&无法响应 Click 事件的控件是________。&/FONT& A、Label B、Timer C、TextBox D、DrivelistBox 27、&FONT size=&3&&代数表达式为&IMG src=&../../tkpic/vb0306.gif& /&,这里 d = 10000,则对应的 Visual Basic 表达式是 ________ 。&/FONT& ( 4) (2 ) 1( ) (2)A、log(sqr(1 + d * d) C exp(2))(5/2) B、In (sqr(1 + d * d) C e^2)^(5/2) C、log(sqr(1 + d * d) C e^2)^(5/2) D、(Log(sqr(1 + d * d) )C Exp(2))^(5/2) 28、&FONT size=&3&&代数表达式为&IMG src=&../../tkpic/vb0305.gif& /&,则相应的 Visual Basic 表达式是 。&/FONT& (3 )A、E^(x+y) + Ox+yO^1/2/2π+1 B、Exp(x+y) + Sqr(Abs(x + y))2*3.14159 + 1 C、(Exp(x+y) + Sqr(Abs(x + y)))/(2*3.14159 + 1) D、(Exp(x+y) + Sqr(Abs(x + y)))/2*π+ 1 29、在 Form_Click 事件中执行 PrintFormat(1236.54,”+##,##0.0%”)语句正确结果是________.。 A、123456 B、+123,654.0% C、+123,6.54% D、+123,654 30、在 Form_Click()事件中执行下面语句算术运行中的优先顺序的正确结果________________。 Print Format (1732.46,”+ # # ,# #0.0”) (1) ( )2A、+1，732.5 B、1，732.5 C、+1，732.5 D、+1，732.4 31、i 被 j 整除的逻辑表达式是________________。 A、i/j = 0 B、i\j = 0 C、i&&0 D、i mod j = 0 32、x+y 小于 10 且 x-y 要大于 0 的逻辑表达式是________________。 A、x+y&10,x-y&0 B、(x+y&10):(x-y)&0 C、x+y&10And x-y&0 D、x+y&10 x-y&0 33、Mys1、Mys2 均为字符串型变量，Mys1=“ABCDEFGHIJKL” ，Mys2=“g” ，则下面关系表达式中结果为 True 的是 ________________。 (3) (3) ( 4)A、Mid(Mys1,7,1)&Mys2 B、Len(Mys1)&&2*Instr(Mys1,”F”) C、Chr(65)+Right(Msy1,5)=”AHIJKL” D、Instr(Left(Mys1,6),”C”)+60&Asc(Ucase(Mys2)) 34、设变量 x、y 是整型变量，且 y≠0，下列赋值语句中错误的是________________。 A、Myv1&=5*x%\3+x%Mod y% B、Myv2%=5*x%\3+x%Mod y% C、Myv3&=”5*x%\3+x%Mod y%” D、Myv4$=5*x%\3+x%Mod y% 35、下列数据中________________是 Boolean 常量。 A、123 B、And C、True D、Or 36、下列字符串中________________是合法变量。 A、char_1,student,No,a1234 B、exp,123,x * y (1) (3) (3)C、x \ y ,x&y D、end ,1bcx 37、启动应用程序，装载和显示窗体，产生_______________和 Form_Show 事件。 A、Form_Click B、Form_Load C、Form_GotFocus D、Form_Db1Click 38、在菜单过程中使用的事件是利用鼠标__________菜单条来实现的。 A、拖动 B、双击 C、单击 D、移动 39、菜单编辑器通过________来确定某个菜单栏选项的子菜单。 A、缩进 B、编号 C、复选框 D、下箭头 40、如果有 Edit | Select | All 菜单选项，采用__________名字最好。 A、EditSelectAll B、SelectEditAll C、AllEditSelect D、EditAllSelect 41、一个应用程序可在_________窗口中使用菜单。 A、1 个 B、2 个 C、3 个 D、多个 42、_______控件可帮助控制动画的效果。 A、命令按钮 B、标签 C、时钟 D、文本框 43、Image 控件加载图片后的尺寸_________。 A、与原图大小不同 B、比原图大 C、比原图小 D、与原图大小相同 44、计时器控件每次经历一个固定的时间间隔________。 A、修改窗体 B、触发事件 C、建立窗体 D、显示图片 45、可以将________放入一个框架中。 A、选项按钮、复选框 (4 ) (2) (4) (3) (4) (1 ) ( 1) (3) (2 )B、标签、选项按钮、复选框 C、文本框、命令按钮 D、任何控件 46、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_________ 状态。 A、不选中 B、不显示 C、禁止 D、选中 47、使用________方法，可取得列表框中的项数。 A、ListCount B、AddItem C、Clear D、RemoveItem 48、使用_______方法，可将新的项加到一个列表框中。 A、Print B、AddItem C、Clear D、RemoveItem 49、________控件的行为具有 Boolean 类型。 A、选项按钮、命令按钮 B、复选框、标签 C、选项按钮、复选框 D、列表框、组合框 50、窗体 Form1 的名称属性为 frm，它的 Load 事件过程名为________。 A、Form_Load B、Form1_Load C、Frm_Load D、Me_Load 51、 如果在窗体上有命令按钮 OK， 在代码编辑窗口有与之对应的 CmdOK_Click()事件， 则命令按钮控件的名称属性和 Caption 属性分别为________。 A、OK、Cmd B、Cmd、OK C、CmdOK、OK D、OK、CmdOK 52、一只白色的足球被踢进球门，则白色、足球、踢、进球门是_________。 A、属性、对象、方法、事件 B、属性、对象、事件、方法 C、对象、属性、方法、事件 D、对象、属性、事件、方法 53、在窗体中有一个命令按钮，该命令按钮的 Click 事件过程中有以下语句： Command1.Caption = “OK” 若本语句执行 前，命令按钮的 Caption 属性取缺省值，该语句执行后，标签控件的名称属性和 Caption 属性取值分别为_______。 A、Command1、Visual Basic B、Command1、OK C、Command1、Caption (2) (2) ( 3) (1 ) (3 ) (2) (1) (4)D、Command、Command1 54、在窗体中有一个命令按钮，该命令按钮的 Click 事件过程中有以下语句： Command1.Caption = “OK” 若本语句执行 前， 命令按钮的 Caption 属性取缺省值， 则该命令按钮的名称属性和 Caption 属性在执行本语句前的取值分别为______ 。 A、Command1、OK B、Command1、Caption C、Command1、Command1 D、Caption、Command1 55、一个对象可以执行的动作与可被对象的特性描述分别称为________。 A、事件、方法 B、方法、事件 C、方法、属性 D、过程、事件 56、将命令按钮的，________属性设置为 True，当用户按下【Esc】键时可以激发对应命令按钮的 Click 事件。 A、Name B、Enable C、Default D、Cancel 57、当用户单击命令按钮时，________属性可以使得命令按钮对激发事件无效。 A、Name B、Enable C、Default D、Cancel 58、如下控件中最适合做标题的控件是________。 A、文本框 B、列表框 C、标签 D、命令按钮 59、_______是一种对象；________也能包括窗体、菜单和其他应用程序组件。 A、控件、方法 B、控件、对象 C、事件、方法 D、过程、函数 60、________属性用来设置将出现在窗体标题条中的标题。 A、Style B、Text C、Caption D、Name 61、当移动控件，重新设定其尺寸时，_________属性会自动改变。3 A、Click、Change B、Name、Caption C、Top、Left D、Cancel、Default 62、控件的________使用户能够移动控件并调节其大小。 1 ( A、拖曳柄 ) ( ) (3) (2) (3) (2) (4) (3 ) 3( )B、标题栏 C、工具箱 D、工程资源管理器 63、放置控件到窗体中的最迅速的方法是________。1 A、双击工具箱中的控件 B、单击工具箱中的控件 C、拖动鼠标 D、单击工具箱中的控件并拖动鼠标 64、________的改变可以在设计时和运行时表现出来，而________只有在运行时执行。 2 ( A、控件属性、事件过程 B、控件属性、事件过程 C、事件过程、函数 D、控件属性、子程序 65、控件的________确定当一个事件发生时执行代码。 2 ( ) A、函数 B、事件过程 C、子程序 D、通用过程 66、窗体文件名的后缀是________。 2 ( ) A、.vbp B、.frm C、.bas D、.vbw 67、__________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。 3 ( ) A、方法 B、属性 C、事件 D、工程 68、Windows 程序是______的，并且包括用户与之交互的用以控件程序的元素。1 A、可视化 B、OLE C、OOP D、Office 69、组成应用程序背景的窗体是________。 4 ( A、控件 B、方法 C、MDI D、Form 70、VB 是面向______的程序设计语言。 4 ( A、过程 B、工程 C、事件 D、对象 71、赋值语句：a=123+MID(&,2)执行后，a 变量中的值是____________。 4 ( ) ) ) ( ) ) ( )A、&12334& B、123 C、12334 D、157 72、为了给 x,y,z 三个变量赋初值 1，下面正确的赋值语句是____________。 1 ( A、x=1：y=1：z=l B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1 73、下面正确的赋值语句是____________。 3 ( A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 74、表达式 LenB(&123 程序设计 ABC&)的值是____________。 3 ( A、10 B、14 C、20 D、17 75、表达式 Len(&123 程序设计 ABC&)的值是____________。 1 ( ) A、10 B、14 C、20 D、17 76、己知 A$=&&，则表达式 Val(Left(A,4)+Mid(A,4,2))的值为____________。 2 ( A、123456 B、123445 C、8 D、6 77、Rnd 函数不可能为下列____________值。 2 ( A、0 B、1 C、0.1234 D、0.0005 78、与数学表达式 (ab/3cd) 对应，VB 的不正确表达式是____________。 4 ( A、a*b/(3*c*d) B、a/3*b/c/d C、a*b/3/c/d D、a*b/3*c*d 79、\、/、Mod、*四个算术运算符中，优先级别最低的是____________。 3 ( ) A、\ B、/ C、Mod D、* ) ) ) ) ) )80、数学关系 3≤x&10 表示成正确的 VB 表达式为____________。 2 ( ) A、3&=x&10 B、3&=x ANDx&10 C、x&=3 OR x&10 D、3&=x AND &10 81、表达式 16/4-2^5*8/4 MOD 5/2 的值为____________。 2 ( A、14 B、4 C、20 D、2 82、下面____________是不合法的单精度常数。 4 ( A、100! B、100.0 C、1E+2 D、100.0D+2 83、下面____________是合法的单精度型变量。1 A、num! B、sum% C、xinte$ D、mm 84、下面____________是合法的字符常数。 2 ( A、ABC$ B、&AB& C、'ABC' D、ABC 85、下面____________是不合法的整常数。 4 ( ) A、100 B、&O100 C、&H100 D、%100 86、下面____________是合法的变量名。 1 ( ) A、X_yz B、123abc C、integer D、X-Y 87、一句语句要在一行继续写，用____________符号作为续行符。 3 ( ) A、+ B、C、_ D、… 88、代数表达式 ) ( ) ) )&img src=&http://210.28.194.11/webexam/tkpic/vb0304.gif& /&对应的 Visual Basic 表达式是 A、Sqr(x+log(x))/(a+b))+exp(C2*t)+cos((x+y)/2)。 1( )B、Sqr(x+log(x)/(a+b))+exp(C2*t)+cos((x+y)/2) C、Sqr(x+ln(x))/(a+b))+exp(C2*t)+cos((x+y)/2) D、Sqr(x+log(x))/(a+b))+exp(C2*t)+cos(x+y)/2) 89、在一个语句内写多条语句时，每个语句之间用____________符号分隔。2 A、 ， B、 ： C、 、 D、 ； 90、代数表达式 ( )&img src=&http://210.28.194.11/webexam/tkpic/vb0303.gif& /&，对应 Visual Basic 表达式是 A、Sqr((x+Log(x))/(a+b))+Exp(-t)+Sin((x+y)/2) B、Sqr((x+Ln(x)/(a+b))+Exp(-t)+Sin((x+y)/2) C、Sqr((x+Ln(x))/(a+b))+Exp( -t)+Sin((x+y)/2) D、Sqr((x+Log(x))/(a+b))+Exp(-t)+Sin(x+y/2) 91、下列不正确的变量名是________。 4 ( ) A、Form B、Command C、Text D、Arry@ 92、语句 Print&5*20&输出的结果是________。 3 ( A、&5*20& B、出现错误信息 C、5*20 D、100 )。1( )93、 在程序中分别将变量 Inta、 St、 定义为整型、 Bl、 D 布尔型、 字符串型和日期型， 下列赋值语句在执行时会出错的是________。 2 ( ) A、Inta=4.6 B、Bl=#True# C、St=5&123.5 D、D=#10/05/01# 94、窗体上有多个控件，在 Form_Activate()事件过程中添加________语句，就可以保每次运行程序时，都将光标定位在文 本框 Text1 上。 2 ( )A、Text1.Text=& & B、Text1.SetFocus C、Form1.SetFocus D、Text1.Visible=True 95、下列表达式中，值为 True 的是________。 3 ( ) A、Ucase(&ABCD&)&=&abcd& B、14/.2\3&10 MOD 4 C、Mid(&ABCD&,2,2)&Left(&ABCD&,2) D、Not(Spr(4)C3&=-2) 96、 若希望在离开某过程后， 还能保存该过程中局部变量的值， 则应使用________关键字在该过程中定义局部变量。 4 A、Dim ( )B、Private C、Public D、Static 97、有应用代码：Text1.Text=&VisualBasic&，其中的 Text1、Text 和&VisualBasic&分别代表____。 A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值 98、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号________，那么在运行程序时按 Alt 键和该字母键就 可打开该命令菜单。 2 ( A、下划线 B、& C、$ D、@ 99、在程序中可以通过复选框和单选框按钮的____________属性值来判断它们的当前状态它。 A、Caption B、Value C、Checked D、Selected 100、使用________方法可将新的列表项添加到一个列表框中。 2 ( A、Print B、AddItem C、Clear D、RemoveItem ) 2( ) ) 3( )VB45 参考答案1.a=t,i Mod 5=0,i=i+1,2.标准控件,ActiveX 控件,3.12,4.13,5.357,6..125+32= 157,8.InputBox,MsgBox,9.61,10.12 24,11.3,12.字符串型,13.i Mod k=0,Exit For,k=I,14.right(b,4),1000,15.c=1,c=a,16.x=(y mod 10) or (x=(y mod 100)) or (x=(y mod 1000)),17.mid(s,i,1),18.1 to 9,a*100+b*10+c,19. 4 9 16 25 36,7,2,21.c=50 AND c=int(c),22.30,23.Dim t as Double,term=term+t,24.Int(Rnd*900)+100,n1=n1+1,25.7,1,26.Chr$(n),27.fact=1,28.2^n,29.2 2 3,30.198,31.10 220,10 120,32.15,13,17,33.81,9,34.m mod 10,35.3.14159*(d/2)^2,36.5,37.t2-t1,38.Int(Rnd*900)+100,n1=n1+1,39.9,40.4 13,6 31,41.k mod 10,42.5*x+3*y+z/3=100,43.1 to 8,fanma,44.300,45.2 4 6 1,46.21 38 54,47.1 to 9,n+1,b,a,48.11,49.IsP=True,m Mod i=0,p1 And p2,=p2,50.Preserve a(n+1),a(I+1)=a(I),a(I+1)=m,51.Len(a),n/2,Mid(a,n-i+1),Mid(a,n-i+1),52.0 1 1,4 4 4,53.优 秀,54.Bb,BbCcEe,55.无限循环,Ctrl+Break,56.1 3 5 7 9,57.101.d,2.c,3.d,4.d,5.c,6.a,7.a,8.c,9.d,10.b,11.c,12.a,13.d,14.a,15.c,16.c,17.d,18.d,19.a,20.b,21.d,22.c,23.a,24.b,25.a,26.b,27.d,28.c,29.b, 30.a,31.d,32.c,33.c,34.c,35.c,36.a,37.b,38.c,39.a,40.a,41.d,42.c,43.d,44.b,45.d,46.d,47.a,48.b,49.c,50.a,51.c,52.b,53.b,54.c,55.c,56.d,57.b, 58.c,59.b,60.c,61.c,62.a,63.a,64.b,65.b,66.b,67.c,68.a,69.d,70.d,71.d,72.a,73.c,74.c,75.a,76.b,77.b,78.d,79.c,80.b,81.b,82.d,83.a,84.b,85.d, 86.a,87.c,88.a,89.b,90.a,91.d,92.c,93.b,94.b,95.c,96.d,97.c,98.b,99.b,100.bvbxt56 满分：190 分 姓名：________1、填空题(本题共计 31 分) 1、已知数组 A(4，4)，各个元素在运行程序时，被赋值并打印，形成四阶方阵。程序执行后，产生一个转置矩阵(即行列互 换)，仍放在数组 A 中，并打印出来。请完善下列程序。例如： 1 2 3 4 -------&1 1 1 1 1 2 3 4 -------&2 2 2 2 1 2 3 4 -------&3 3 3 3 1 2 3 4 -------&4 4 4 4 Private Sub Command1_Click( ) Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j); Next j Print Next k Print For k=2 To 4 For j=1 To _______ t=a(j,k) a(j,k)=_______ a(k,j)=tNext j Next k End Sub 2、下面的程序用&冒泡&法将数组 a 中的 10 个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click( ) Dim a,i,j,k As Integer a=Array(678,45,324,528,439,387,87,875,273,823) For i=_________ For j=_________ If a(i)________a(j) Then a1=a(j):a(j)=a(i):a(i)=a1 End If Next j Next i for k=1 To 10 Print a(k); Next k End Sub 3、执行下面程序后，A(1，3)的值是________ ，A(2，2)的值是________ ，A(3，1)的值是________ 。 Option Explicit Option Base 0 Private Sub Form_Click( ) Dim A(3,3)As Integer,I As Integer Dim k As Integer,m As Integer m=16 For k=6 To 0 Step -1 If k&=2 Then For I=0 To 5-k A(k-2+I,I)=m m=m-1 Next I Else For I=0 To k A(k-I,3-I)=m m=m-1 Next I End If Next k For k=0 To 3 For I=0 To 3 Print A(k,I); Next I PrintNext k End Sub 4、表示&x 和 y 都是正整数或都是负整数&的 VB 表达式为____ 。 5、表示&x+y 小于 10，且 x-y 要大于 0&的 VB 表达式为 _____。 6、在 Visual Basic 的中断模式下，要想&逐语句&调试程序可按________键，要想&逐过程&调试程序可按_________键。 7、Visual Basic 程序在运行时中，用户可通过按 ____键进入中断状态。 8、Visual Basic 有三种运行模式，分别是______、运行模式和中断模式，其中_____模式可以监视表达式和变量的值。 9、____的功能显示当前过程的有关信息，当测试一个过程时，可在其中输入代码并立即执行。 10、_____的功能是查看指定表达式的值。 11、要运行 VB 的程序可以按_______键。 12、在 Visual Basic 的中断模式下，要想&逐语句&调试程序可按____ 键，要想&逐过程&调试程序可按____ 键。 13、 有一个充满氢气的球， 如果人不小心松开手抓的引线， 它就会飞走； 如果用针刺穿它， 它则会爆破。 此处红色一种 ____， 飞是一种______ 。针刺是一种_____ ，爆破是一种_____ 。 14、___(1)___的功能是显示当前过程所有局部变量的当前值。 15、以下程序段产生 100 个 1-4 之间的随机整数，并进行统计。数组元素 s(i)的值表示等于 i 的随机数的个数，要求输出如 下格式： s(1)=&& s(2)=&& s(3)=&& s(4)=&& 将程序补充完整。 Private Sub Form_Click() Dim s(4) As Integer Randomize _____(1)______ x = Int(Rnd * __(2)___ + 1) s(x) = s(x) + 1 Next i ________(3)_______ Print _________(4)_______ Next i End Sub 16、以下程序代码将整型动态数组 X 声明为具有 20 个元素的数组，并给数组的所有元素赋值. _____(1)_____ as integer private sub command1_click() redim ___(2)____ for i=1 to 20 x(i)=1 print x(i) next i end sub 2、单项选择题(本题共计 159 分) 1、应用程序窗体的名称属性为 Frm1，窗体上有一个命令按钮，其名称属性为 Cmd1，窗体和命令按钮的 Click 事件过程名 分别为____________。 ( 3)A、Form_Click() Command1_Click B、Frm1_Click() Command1_Clic C、Form_Click() Cmd1_Click D、Frm1_Click() Cmd1_Click 2、在 VisualBasic 中最基本的对象是____________，它是应用程序基石，也是其它控件的容器。 A、文本框 B、命令按钮 C、窗体 D、标签 3、确保文本框中输入的全部是数字的最佳方法足____________。 A、在 KeyDown 或 KeyUp 事件过程中摒弃非数字输入 B、在 Validate 事件过程中利用 lsNumenc C、在 Change 事件过程中利用 lsNumeric D、在 KeyPress 事件过程中撕弃非数字输入 4、下面关于多重窗体的叙述中，正确的是____________。 A、作为启动对象的 Main 子过程只能放在窗体模块内 B、如果启动对象是 Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪 一个窗体 C、没有启动窗体，程序不能执行 D、以上都不对 5、在下面关于窗体事件的叙述中，错误的是____________。 A、在窗体的整个生命周期中，Initialize 事件只触发一次 B、在用 Show 显示窗体时，不一定发生 Load 事件 C、每当窗体需要重画时，肯定会触发 Paint 事件 D、Resize 事件是在窗体的大小有所改变时被触发 6、在窗体从内存卸载的过程中会发生许多事件，这些事件发生的顺序是____________。 A、Terminate、QueryUnload、Unload B、QueryUnload、Unload、Terminate C、QueryUnload、Terminate、Unload D、Unload、QueryUnload、Terminate 7、以下正确的语句是___________ . (3) (2) (3 ) (2) (4 ) (3)A、ConunonDialog1.Filter=All Files{*.*}Pietures(*.Bmp)|*.Bmp B、CommonDialog1.Filter=&All Files&|*.*|&Pictures(*.Bmp)&|&*.Bmp& C、ComraonDialog1.Filter=&All Files|*.*|Pictures(*.Bmp)|*.Bmp& D、CommonDialog1.Filter={All Files|*.*|Picturee(*.Bmp)|*.Bmp} 8、在下列关于通用对话框的叙述中，错误的是____________。 A、CommonDialogl.ShowFont 显示字体对话框 B、在打开或另存为对话框中，用户选择的文件名可以经 FileTitle 属性返回 C、在打开或另存为对话框中，用户选择的文件名及其路径可以经 FileName 属性返回 D、通用对话框可以用来制作和显示帮助对话框 9、在下列关于菜单的说法中，错误的是____________。 (2) (4 )A、每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件 B、除了 Click 事件之外，菜单项还能响应其他的如 DblClick 等事件 C、菜单项的捷径键不能任意设置D、在程序执行时，如果菜单项的 Enabled 属性为 False，则该菜单项变成灰色，不能被用户选择 10、在用菜单编辑器设计菜单时，必须输入的项有____________。 A、快捷键 B、标题 C、索引 D、名称 11、如果文本框的 Enabled 属性设为 False，则____________。 (2 ) (4 )A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框』 ： B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 12、____________语句将按钮(Textl)的标题赋值给文本框(Commandl)的 Text 属性。 A、Textl=Commandl B、Text1=Commandl.Caption C、Textl.Text=Commandl D、Textl.Text=CStr(Commandl) 13、在下列说法中，正确的是____________。 (4) (2 )A、通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B、在列表框中不能进行多项选择 C、在列表框中能够将项目按字母顺序从大到小排列 D、框架也有 Click 和 DblClick 事件 14、假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，计算机将发出____________次 Beep 声。&BR /&Sub Timerl_Timer()&BR /& For 1=l To 10 &BR /& beep&BR /& Next I&BR /&End Sub A、1 000 次 B、10000 次 C、10 次 D、以上都不对 15、如果列表框(Listl)中只有一个项目被用户选定，则执行 Debug.Print Listl.Selected(List1.Listlndex)语句的结果是 ____________。 (2) (3 )A、在 Debug 窗口输出被选定的项目的索引值 B、在 Debug 窗口输出 True C、在窗体上输出被选定的项目的索引值 D、在窗体上输出 True 16、如果列表框(List1)中没有被选定的项目，则执行 Listl.Removeltem Listl.Listlndex 语句的结果是____________。 A、移去第一项 B、移去最后一项 C、移去最后加入列表的一项 D、以上都不对 17、执行了下面的程序后，列表框中的数据项有____________。&BR /&Sub Form_Click()&BR /& for i=1 To 6 &BR /& Listl.Addltem i &BR /& next i&BR /& for i=1 To 3&BR /& Listl.Removeltem i&BR /& next i&BR /&End Sub A、1，5，6 B、2，4，6 C、4，5，6 D、1，3，5 (4 ) (4)18、假如列表框(Listl)有 4 个数据项，那么把数据项“China”添加到列表框的最后，应使用____________语句。 A、Listl.Addltem 3，&China& B、Listl.Addltem &China&，Listl.ListCount-1 C、Listl.Addltem &China&，3 D、Listl.Addltem &China&，Listl.ListCount 19、引用列表框(Listl)最后一个数据项应使用____________。 A、Listl.List(Listl.ListCount) B、Listl.List(Listl.ListCount-1) C、Listl.Lis((ListCount) D、Listl.List(ListCount-1) 20、将数据项“China”添加到列表框(Listl)中成为第一项应使用____________语句。 A、Listl.Addltem &China&,0 B、Listl.Addltem &China&,1 C、Listl.Addltem 0,&China& D、Listl.Addltem 1,&China& 21、用来设置粗体字的属性是____________。 A、Fontltalic B、FontName C、FontBold D、FontSize 22、复选框的 Value 属性为 1 时，表示____________。 A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有错误 23、下列控件中，没有 Caption 属性的是____________。 A、框架 B、列表框 C、复选框 D、单选按钮 (2) (2) (3) (1) (2)(4)24、当需要上下文帮助时，选择要帮助的“难题” ，然后按____________键，就可出现 MSDN 窗口及显示所需“难题”的 帮助信息。 (4)A、Help B、F10 C、Esc D、F1 25、制作成安装盘时，多个压缩文件和单个压缩文件结果的区别涉及到____________扩展名的文件。 A、.exe B、.txt C、.cab D、.OCX 26、将调试通过的工程经“文件”菜单的“生成.exe 文件”编译成.exe 后，将该可执行文件到其他机器上不能运行的主要原 因是____________。 (1 ) (3)A、运行的机器上无 VB 系统B、缺少.frm 窗体文件 C、该可执行文件有病毒 D、以上原因都不对 27、保存新建的工程时，默认的路径是____________。 A、MyDocuments B、VB98 C、\ D、Windows 28、要判断在文本框是否按了 Enter 键，应在文本框的____________事件中判断。 A、Change B、KeyDown C、Click D、KeyPress 29、当文本框的 ScrollBars 属性设置了非零值，却没有效果，原因是____________。 A、文本框中没有内容 B、文本框的 MultiLine 属性为 False C、文本框的 MultiLine 属性为 True D、文本