《2022年VB复习题.pdf》由会员分享，可在线阅读，更多相关《2022年VB复习题.pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精心整理VisualBasic复习题一、 选择题（1）以下关于窗体的描述中，错误的是A）执行 UnloadForm1 语句后，窗体 Form1 消失，但仍在内存中B）窗体的 Load 事件在加载窗体时发生C）当窗体的 Enabled属性为 False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的 Height、Width 属性用于设置窗体的高和宽（2）下列可作为 VisualBasic 变量名的是A）A#AB ）4AC）?xyD）constA （3）函数 Int(6*Rnd)+1 的值是在哪个范围内的整数？（）A)0,6B)0,7C )1,6D)1,7 （4）设有如下的记录类型TypeStu
2、dent numberAsString nameAsString ageAsInteger EndType 则正确引用该记录类型变量的代码是A）Student.name= 张红B）DimsAsStudent s.name=张红 C）DimsAsTypeStudentD）DimsAsType 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 12 页 - - - - - - - - - - 精心整理s.name=张红s.name=张红 (5)执行如下语句：a=InputBox(Today,Tomo
3、rrow,Yesterday) 将显示一个输入对话框，在对话框的输入区中显示的信息是A）TodayB）TomorrowC）Yesterday (6)在窗体上画一个名称为List1 的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSubList1_Click()B）PrivateSubList1_Click() Label1.Caption=List1.ListIndexLabel1.Name=List1.ListIndex EndSubEndSub C）PrivateS
4、ubList1_Click()D）PrivateSubList1_Click() Label1.Name=List1.TextLabel1.Caption=List1.Text EndSubEndSub (7)在窗体上画三个单选按钮， 组成一个名为 chkOption 的控件数组。 用于标识各个控件数组元素的参数是A）TagB）IndexC）ListIndexD）Name (8)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：OptionBase0 PrivateSubCommand1_Click() DimcityAsVariant city=Array( 北京,上海,
5、天津,重庆) Printcity(1) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 12 页 - - - - - - - - - - 精心整理EndSub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白 B）错误提示 C）北京 D）上海(9)假定有以下函数过程：FunctionFun(SAsString)AsString Dims1AsString Fori=1ToLen(S) s1=UCase(Mid(S,i,1)+s1 Nexti Fun=s1 EndFunction 在
6、窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click() DimStr1AsString,Str2AsString Str1=InputBox(请输入一个字符串 ) Str2=Fun(Str1) PrintStr2 EndSub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为A）abcdefgB）ABCDEFGC）gfedcbaD）GFEDCBA （10）设有语句Openc:Test.DatForOutputAs#1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢
7、迎下载 名师归纳 - - - - - - - - - -第 3 页，共 12 页 - - - - - - - - - - 精心整理则以下错误的叙述是A）该语句在 C 盘根目录下建立一个名为Test.Dat的文件B）该语句建立的文件的文件号为1 C）执行该语句后，就可以通过Print#语句从文件 Test.Dat中读出信息11.在 VB 中，要将一个窗体装载到内存进行预处理，但不显示，应用哪种语句：AShowBHideCLoadDUnload 12.要从 DOLoop 循环中退出循环，应使用哪个语句：AExit BExitDoCContinueDStopLoop 13.在通过引用传递的方式向一个
8、函数传递参数时，应使用哪个关键字：AByVal BByRefCByValueDByReference 14.设窗体上有一个文本框，Text1,要求只能显示信息，不能输入。A)Text1.MaxLength=0 B)Text1.Enabled=False C)Text1.Visible=False D)Text1.Width=0 15.以下能在窗体 Form1 的标题栏中显示“ VisualBasic 窗体的语句是A)Form1.Name=VisualBasic 窗体 B)Form1.Title=VisualBasic 窗体 C)Form1.Caption=VisualBasic 窗体 D)Fo
9、rm1.Text=VisualBasic 窗体”16.在窗体上画一个名称为Timer1 的计时器控件，要求每隔0.5 秒发生一次计时器事件，则以下正确的属性设置语句是A）Timer1.InterVal=0.5?B)Timer1.Interval=5 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 12 页 - - - - - - - - - - 精心整理C)Timer.Interval=50? ?D)Timer1.Interval=500 17.为了把焦点移到某个指定的控件,所使用的方法是 (
10、) (A)setfocus(B)visible(C)refresh(D)getfocus 18.为了暂时关闭计时器 ,应把该计时器的某个属性设置为false,这个属性是 () (A)visible(B)timer (C)enabled(D)intrtval 19.可同时删除字符串前导符和尾部空格的函数是() (A)ttrim(B)rtrim (C)trim(D)mid 20.任何控件都有的属性是（）(A)text(B)forecolor (C)name(D)caption 二、 判断对错。( 正确的打“ A”,错误的打“ B”)1语句 Text1.Caption= ”Pretty ”的语法是正
11、确的。（A）2Input 语句产生一个具有提示信息并可供用户输入数据的对话框。（A）3语句 Dimi,jAsSingle作用是：将 i,j定义为单精度型变量。（A）4复选框列出可供用户选择的选项，用户根据需要只能选定其中的一项。（B）5. 如果使用 OptionBase1, 则表示缺省的数组下界为1。（A）6下列程序段的语法是正确的。（B）Redima(2,4) Redimpreservea(2,8) 7. 下列程序段的语法是正确的。（A）SelectCasenum Case1,2:x=0.15 Case2,3:x=0.42 EndSelect 8图像框（ ImageBox）的 Stretch
12、 （拉伸）属性设为True 时, 装入的图形可根据图像框的大小自动压缩或扩大。（A）9下列程序段的语法是正确的。（B）Ifx0 Thenx=x+2 Elsex=x?2 EndIf 10MsgBox语句产生一个具有提示信息并可供用户输入数据的对话框。（B）精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 12 页 - - - - - - - - - - 精心整理三、 填空题请将每空的正确答案写在后面对应【1】【 13】序号的横线上。（1） VisualBasic 中有一种控件组合了文本框和列表框的
13、特性，这种控件是【组合框】 。（2）VisualBasic 提供的对数据文件的三种访问方式为随机访问方式、【循序文件 】和二进制访问方式。（3）执行下面的程序段后，变量S的值为【】。S=5 Fori=2.6To4.9Step0.6 S=S+1 Nexti （4）为了在运行时把d:pic 文件夹下的图形文件a.jpg装入图片框 Picture1，所使用的语句为【】。（5）计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。（6）以下程序的功能是：生成20 个 200到 300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。精品资料 - - - 欢迎下载
14、- - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 12 页 - - - - - - - - - - PrivateSubCommand1_Click() Fori=1To20 x=Int(【6】 *101+200) If【7】=0Then Printx S=S+【8】EndIf Nexti PrintSum=;S EndSub （7）设有如下程序PrivateSubForm_Click() DimaAsInteger,bAsInteger a=20:b=50 p1 a,b Printa=;a,b=;b EndSub Subp1
15、(xAsInteger,ByValyAsInteger) x=x+10 y=y+20 EndSub该程序运行后，单击窗体，则在窗体上显示的内容是：a=【9】和 b=【10】。（8）在窗体上画一个名称为Combo1的组合框，画两个名称分别为 Label1和 Label2 及 Caption属性分别为 城市名称 和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为 13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示 已成功添加输入项 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归
16、纳 - - - - - - - - - -第 7 页，共 12 页 - - - - - - - - - - 如图所示；如果存在，则在Label2 中给出提示 输入项已在组合框中。请在【 11】、【 12】和【13】处将程序补充完整。PrivateSubCombo1_ 【11】(KeyAsciiAsInteger) IfKeyAscii=13Then Fori=0ToCombo1.ListCount-1 IfCombo1.Text=【12】Then Label2.Caption=输入项已在组合框中 ExitSub EndIf Nexti Label2.Caption=已成功添加输入项 Combo
17、1.【13】Combo1.Text EndIf EndSub 填空题1组合框 2 顺序方式3. 9 4Picture1.picture=loadpicture()5timer 6. rnd 7Xmod58 . x930 10. 5011. keypress12 Combo1.list(i) 13. additem 四、 读程序填写程序题精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 12 页 - - - - - - - - - - 1求 100 以内的素数之和，（每空2 分，共 10 分）Pr
18、ivateSubCommand1_Click() DimflagAsBoolean s=0 Fori=2To100 flag=-_true_ Forj=2Toi 1 If_imodj=0_Then Flag=false_ Exit_ EndIf Nextj Ifflag=_trueThen_s=s+i_ Nexti MsgBox(s) EndSub2. 求 1 到 6 的阶乘之和。Functionfact(xasinteger)aslong DimPaslong,Iasinteger P=1 ForI=1tox P=p*fact(i-1) NextI fact=P EndFunction Pr
19、ivateSubCommand1_Click() Dimsumaslong,Iasinteger ForI=1to6 Sum=sum+fact(i) NextI Label2.caption=sum Endsub3. 在下列事件过程中，如果选中复选框1，则文本变成斜体，如果选中复选框 2，则 Text1 的背景色变成蓝色。PrivateSubCheck1_Click() IfCheck1.Value=1Then Text1.FontItalic=true Else Text1.FontItalic=False EndIf EndSub PrivateSubCheck2_Click() IfCh
20、eck2.Value=1Then Text1.back.color=vbBlue Else Text1.back.color=vbBlack EndIf 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 12 页 - - - - - - - - - - EndSub 如果选中单选框1，则文本字体为宋体，如果选中单选框2，则文本字体为黑体。其代码如下：PrivateSubOption1_Click() Text1.FontName=“宋体”EndSub PrivateSubOption2_Clic
21、k() Text1.FontName= ” 黑体”EndSub 2. 窗体上有一个名称为List1 的列表框，一个名称为 Text1 的文本框，一个名称为Label1、Caption 属性为“ Sum ”的标签，一个名称为 Command1、标题为“计算”的命令按钮。程序运行后，将把 1100之间能够被 7 整除的数添加到列表框。 如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load() ?Fori=1To100 ?IfiMod7=0Then ?_list1.additemi_
22、?EndIf ?Next EndSub PrivateSubCommand1_Click() ?Sum=0 ?Fori=0To_list1.listcount-1_ ?Sum=Sum+_val(list1.list(i)_ ?Next ?Text1.Text=Sum EndSub精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 12 页 - - - - - - - - - - 五、 编程题1从键盘输入 5 个数到数组 s（5）中，并求 s(5) 中最大元素的值和它的下标2. 设计一个简单的乘法
23、和除法计算器，输入两个数，然后选择所需的运算符“”或“, 其结果显示在一个文本框中。（10分）3编写程序，在文本框中任意输入一个字符，在窗体上输出该字符的 Ascii 码。（ 5 分）编程题(1)PrivateSubCommand1_Click() Dima(5)AsInteger Fori=1To5 a(i)=Val(InputBox(输入数据 ) Nexti ma=a(1):xb=1 Fori=2To5 Ifa(i)maThenma=a(i):xb=i Nexti Printma,xb EndSub (2)PrivateSublblAdd_Click() Dims1,s2,addAsSin
24、gle s1=Val(Text1.Text) s2=Val(Text2.Text) add=s1*s2 txtResult.Text=Str(add) EndSub PrivateSublblRemove_Click() Dims1,s2,sAsSingle s1=Val(Text1.Text) s2=Val(Text2.Text) ifs20then s=s1/s2 else s=0 txtResult.Text=Str(s) else txtresult=”分母为 0，无意仪”精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - -
25、 - - - - -第 11 页，共 12 页 - - - - - - - - - - endif EndSub PrivateSubTimer1_Timer() Label2.Caption=Now() EndSub PrivateSubCommand1_Click() DimiAsInteger List1.Clear Fori=1To300 IfiMod7=0ThenList1.AddItemi Nexti EndSub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 12 页 - - - - - - - - - -