vb模拟题1资料讲解

精品文档【HNCE网上考试系统 v9.6】 本套软件使用权属于：郑州大学考试课程:VB-程序设计-练习 考试时间:90分钟 考场:第一考场 考试日期:2017.04.10剩余时间： 88:09 保存交卷退出帮助本卷共有2道大题:一、单项选择题（50道小题，共50分）1、与传统的程序设计语言相比较，VisualBasic最突出的特点是______。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持2、任何控件都具有的属性是______。（1分）A、PictureB、CaptionC、NameD、AutoSize3、保存一个VisualBasic应用程序，正确的是______。（1分）A、只保存工程文件(.vbp)B、只保存窗体文件（.frm）C、只保存标准模块文件（.bas）D、分别保存窗体文件和工程文件4、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。（1分）精品文档精品文档A、Load B、ClickC、DblClick D、MouseDown5、启动Visual Basic后，VB为用户建立的第一个窗体是 ______。（1分）A、Form B、Form1C、窗体1 D、窗体6、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，执行后s的值是______（1分）A、10 B、11C、12 D、157、表示年龄(age)在20岁和30岁之间的表达式是 ______。（1分）A、age>=20 And age<=30 B、age>=20 0r age<=30C、age<=20 And age>=30 D、age<=20 0r age>=308、文本框中的 ScrollBars 属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是 ______。（1分）A、文本框中没有内容 B、文本框的 MultiLine 属性为False精品文档精品文档C、文本框的 MaxLength属性为0 D、文本框的 Locked属性是True9、决定窗体标题栏显示内容的属性是 ______。（1分）A、Text B、NameC、CaptionD、BackStyle10、找出两个数中较大的数的程序段，错误的是______。（1分）A、IFx>yThenmax=xElsemax=yB、max=IIF(x>y,x,y)C、IFx>yThenmax=x:max=yD、max=x:Ifx<yThenmax=y11、若要选择Text对象的Text1_KeyPress事件，可以______。（1分）A、在属性窗口中选择B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选择D、在窗体设计窗口中双击Text1对象12、在下列语句中，正确的是______。（1分）A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name="cmdok"C、Label1.Caption=4567D、x=InputBox(pleaseinput)精品文档精品文档13、SelectCase语句中的“表达式列表”不能是______。（1分）A、变量名的列表，例如Casex,y,zB、值的列表，例如Case"a","b","c"C、To表达式，例如Case1to10D、Is关系表达式，例如CaseIs<814、下列关于窗体的Name属性的叙述，正确的是______。（1分）A、它的值在程序运行中可以重新改写B、它是显示在窗体标题栏中的文本C、它是指窗体的名称，在程序中用来标识一个窗体对象D、它的值可以为空15、在Form_Load()中，如果想用Print方法将计算结果显示在窗体上，则必须保证窗体的______属性值为True。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable16、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。（1分）A、1个“$”B、4个“$”C、不显示内容D、“*”17、VisualBasic的编程机制是______。（1分）精品文档精品文档A、面向过程B、面向对象C、事件驱动D、可视化18、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为______。（1分）A、PrivateSubCommand1_Click():Command1.Caption="计算机考试B、PrivateSubCommand1_Click():Text1="计算机考试":EndSub":EndSubC、PrivateSubText1_Change():Command1.Caption="计算机考试D、PrivateSubText1_Click():Text1.Caption="计算机考试":EndSub":EndSub19、程序段Dimx%:IfxTheny=xElsey=x+1:Printy运行后，显示的结果是______。（1分）A、0B、1C、随机数D、显示出错信息20、有一个命令：Text1="欢迎您！"，表达方式中省略了对象的______。（1分）A、方法B、属性名C、对象名D、标题21、以下不合法的常量是______。（1分）精品文档精品文档A、10^2B、100C、100.0D、10E+0122、语句Print"int(-23.4)=";;Int(-23.4)的输出结果为（1分）A、Int(-23.4)=-23.4B、(-23.4)=23.4C、Int(-23.4)=-23D、Int(-23.4)=-2423、启动VisualBasic后，VB为用户新建立的第一个工程的名字是______。（1分）A、窗体1B、工程C、窗体D、工程124、Cls方法可以清除窗体或图片框中的______。（1分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部内容25、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右(→)移动一定距离。在Command1_Click()中能完成这个功能的命令为______。（1分）精品文档精品文档A、Label1.Left=100B、Label1.Left=Label1.Left-100C、Label1.Move100D、Label1.MoveLabel1.Left+10026、执行语句PrintFormat(32548.5,"###,##0.00")，输出结果是______。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5027、PrintDateDiff("m",#1/28/2004#,#1/31/2004#)的输出结果是______。（1分）A、OB、1C、-1D、228、执行语句：PrintFormat(32548.5,"000,000.00")，输出结果是______。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5029、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是______。（1分）A、XMod2=1AndYMod2=1B、XMod2=1OrYMod2=1精品文档精品文档C、D、(XMod2=1AndYMod2=0)And(XMod2=0AndYMod(XMod2=1AndYMod2=0)Or(XMod2=0AndYMod2=1)2=1)30、表达式"Turbo"+"C">"True"+"Basic"的值是______。（1分）A、TrueB、FalseC、NullD、出错信息31、程序段Print-15;:Print-16，输出的结果是______。（1分）A、-15-16B、-31C、-15-16D、出错32、以下声明语句中，错误的是______。（1分）A、Constvarl=123B、Constvar2="ABC"C、Public const="计算机等级考试 " D、Static var3 as Integer33、Single（单精度）型数据占 ______个字节。（1分）A、2 B、4精品文档精品文档C、8D、1034、已知下列程序段：a=3:b=4:Printb>a，输出的结果是______。（1分）A、TrueB、FalseC、4>3D、显示出错信息35、在下列逻辑表达式中，逻辑值为"真"的是______。（1分）A、Not(1>2)B、Not(3+4<4+6)C、1>2Or2>3D、2>1And3<236、如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。（1分）A、OB、-1C、TrueD、False37、执行程序段：DimaxsAsInteger:axs%=232:axs=132.32:Printaxs%;axs，输出的结果是______。（1分）A、232132032B、132132C、132.32 132.32 D、显示出错信息精品文档精品文档38、语句Print4+5\6*7/8Mod9的值是______。（1分）A、4B、5C、6D、739、变体型变量未赋值时，它的值为______。（1分）A、OB、空""C、NullD、没任何值40、执行语句age=InputBox("请输入数值","年龄输入框","38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是______。（1分）A、变量Age的值是数值数据20B、对话框标题栏中显示的是"年龄输入框"C、对话框的默认值是38D、对话框的提示文字为"请输入数值"41、在VB中，以10为底的x的常用对数表达式是______。（1分）A、Log(X)B、Log10(X)C、Log(X)/Log(e)D、Log(X)/Log(10)42、执行程序段：m$="ABC":n$="abc":k$=LCase$(m$):j$=UCase$(n$):PrintAsc(k$+j$)，输出的结果是______。（1分）精品文档精品文档A、abcabc B、ABCABCC、65 D、9743、表达式Val(".123E2CD") 的值是______。（1分）A、.123 B、12.3C、O D、.123E2CD44、下列符号常量的声明中， ______是不合法的。（1分）A、Const a As Single = 1.1 B、Const a As Integer = "12"C、Const a As Double = Sin(1) D、Const a = "OK"45、下列符号中，属于 Visual Basic合法变量名的是 ______。（1分）A、x23 B、8xyC、END D、X8[B]46、设有变体变量 x，执行语句：x = InputBox(" 输入数值","0"," 示例")后，如果从键盘上输入 10并按回车键，则下列叙述中正确的是 ______。（1分）A、变量x的值是数值 10 B、在InputBox对话框标题栏中显示的是“示例”精品文档精品文档C、0是默认值 D、变量x的值是字符串“ 10”47、方法Print "等级";" 考试"，输出的结果是 ______。（1分）A、等级考试 B、等级;考试C、"等级考试"D、"等级";"考试"48、InStr("VisualBasic程序设计简明教程中关于可视化界面的设计","设计")的函数值为______。（1分）A、15B、17C、30D、4749、下面关系运算中，输出结果为“True”的是______。（1分）A、"1"+2="12"B、"1"+"2"="3"C、"1"&2="12"D、"1"&"2"="3"50、设有变量声明：DimTestDateAsDate，为变量TestDate正确赋值的表达方式是______。（1分）A、TestDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TestDate=Date("1/1/2002")D、TestDate=Format("m/d/yy","1/l/2002")精品文档精品文档二、程序应用题（ 8道小题，共 50分）1、* 下面程序用来输出如下图案，请填空。ABCDEABCDABCABAPrivate Sub Command1_Click()Dim i%, j%For i = 5 To 1 Step -1iFor j = 1 TojPrint Chr( + 64);Next jPrintNextEnd Sub（4分）2、* 使用InputBox 函数接收一批字符，将其中的数字字符进行累加并输出累加和。Private Sub Form_Click()Dim s As String, i As Integer精品文档精品文档s=InputBox("请输入一个带数字的字符串")i=1Sum=0DoWhilei<=Len(s)IfMid(s,i,1)>="0"AndMid(s,i,1)<="9"ThenSum=Sum+Mid(s,i,1)EndIfi=i+1LoopPrintSumEnd Sub（4分）3、* 删除已知数组 a 中的某个元素。Private Sub Command1_Click()Dim a() As Variant, n As Integer, Key As Integera = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)n = UBound(a)Key = InputBox(" 请输入要删除的数 ")For i = 0 To nIf Key = a(i) Then Exit For精品文档精品文档NextiIfi=n+1ThenMsgBox("找不到此数"):ExitSubForj=i+1Tona(j-1)=a(j)Nextjn=n-1ReDimPreservea(n)Fori=0TonPrinta(i);Nexti:PrintEnd Sub（4分）4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在 70分以上）随即生成存放在二维数组 R（3，4）中，计算每个学生的平均成绩（存放在数组 S中）和最高平均成绩。Private Sub Form_Click()Dim R(1 To 3, 1 To 4) As Integer精品文档精品文档DimS(1To3)AsIntegerDimi%,j%,max%,k%'k为最高成绩学生序号Fori=1To3S(i)=0Forj=1To4R(i,j)=Int(30*Rnd+70)PrintTab((j-1)*5);R(i,j);S(i)=S(i)+R(i,j)NextjS(i)=S(i)/4PrintNextimax=0Fori=1To3Print"学生"&i;"平均成绩:"&S(i)Ifmax<S(i)Thenmax=S(i)k=iEndIfNextiPrint"最高平均成绩k=";k,"max=";maxEnd Sub精品文档精品文档（6分）5、* 下面程序计算 1!+3!+5!+...+9! 的值，请将其补充完整。程序代码如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsIntegernt=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0Forn=1To9Step2aa(n)ntsum = sum +Next n精品文档精品文档Print sumEnd Sub（6分）6、* 编写一个登录的程序，如图 {<x_1.jpg>} 所示。运行过程：点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。Private Sub Form_Load()Text2.PasswordChar = "*"Text2.Text = ""Text1 = ""End SubPrivate Sub Command1