VB试题7-.pdf

《VB试题7-.pdf》由会员分享，可在线阅读，更多相关《VB试题7-.pdf（33页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、1 要想把个人计算机用电话拨号方式接入Internet网，除性能合适的计算机外，硬件上还应配置一个_。A、路由器B、连接器C、集线器D、调制解调器D 2 存储在 ROM 中的数据，当计算机断电后_。A、不会丢失B、部分丢失C、可能丢失D、完全丢失A 3 DVD-ROM 属于_。A、大容量只读外部存储器B、只读内存储器C、大容量可读可写外存储器D、CPU 可直接存取的存储器A 4 操作系统是计算机系统中的_。A、系统软件B、广泛应用的软件C、外部设备D、主要硬件A 5 当前流行的移动硬盘或优盘进行读/写利用的计算机接口是_。A、串行接口B、UBS C、USB D、平行接口C 6 计算机技术中，英

2、文缩写CPU 的中文译名是 _。A、寄存器B、运算器C、控制器D、中央处理器D 7 在Word 状态的编辑状态下,执行文件菜单中的 保存 命令后().A、只能将当前文档存储在已有的原文件夹内B、可以将当前文档存储在已有的任意文件夹内C、将所有打开的文件存盘D、可以先建立一个新文件夹,再将文档存储在该文件夹内A 8 EXCEL 是微软 OFFICE 套装软件之一它属于:()软件.A、公式输入B、电子表格C、公式计算D、文字输入B 9 Windows 的文件夹组织结构是一种().A、网状结构B、表格结构C、树形结构D、线性结C 10 为网络提供公享资源进行管理的计算机称谓()A、网卡B、服务器C、

3、网桥D、工作站B 11设有如下程序Option Base 1 Private Sub Command1_Click()Dim a(10)As Integer Dim n As Integer n=InputBox(输入数据)If n=10 Then t=x+1 Else t=x+2 End If f=t End Function 13 运行程序，则窗体A、61 B、38 C、49 D、70 B 14 设在工程中有一个标准模块，其中定义了如下记录类型Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为 Comman

4、d1的命令按钮，要求当执行事件过程Command1_Click 时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是_。A、Private Sub Command1_Click()Dim B As Books Open c:Person.txt For Output As#1 B.Name=InputBox(输入姓名)B.TelNum=InputBox(输入电话号码)Write#1,B Close#1 End Sub B、Private Sub Command1_Click()Dim B As Books Open c:Person.txt For Input A

5、s#1 B.Name=InputBox(输入姓名)B.TelNum=InputBox(输入电话号码)Print#1,B.Name,B.TelNum Close#1 End Sub C、Private Sub Command1_Click()Dim B As Books Open c:Person.txt For Input As#1 Name=InputBox(输入姓名)TelNum=InputBox(输入电话号码)Print#1,Name,TelNum Close#1 End Sub D、Private Sub Command1_Click()Dim B As Books Open c:Pe

6、rson.txt For Output As#1 B.Name=InputBox(输入姓名)B.TelNum=InputBox(输入电话号码)Write#1,B.Name,B.TelNum Close#1 End Sub D 15 执行下列语句后整型变量a的值是 _。If(3-2)2 Then a=10 Else If(10/2)=6 Then a=20 Else a=30 End If A、10 B、30 C、不确定D、20 D 16 要使一个文本框可以显示多行文本，应设置为True的属性是_。A、MaxLength B、Enabled C、Width D、MultiLine D 17 图像

7、框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是 _。A、Stretch B、AutoRedraw C、Appearance D、AutoSize C 18 在Visual Basic中，下列运算符中优先级最高的是：_。A、=10,Is=0 Then A、2 B、1 C、3 D、0 C 28 下面程序计算并输出的是_。Private Sub Command1_Click()a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until ab+1 Or cy Then t=y:y=x:x=t 5 在窗体画一个名称为 Command1的命令按钮,然后编写如下事件过

8、程:Dim I as Integer，s as Long Dim arr1(18)As IntegerFor i=0 To 18arr1(i)=iNext iErase arr1For i=1 To 18s=s+arr1(i)Next iPrint sEnd Sub程序运行后,单击 Command1命令按钮,则程序输出的结果是_.0 6 数组名作过程实参，相应的形参传递方式为_。按地址传送7 菜单控件只包含了一个事件，该事件是_。popupmenu mypopupmenu PopupMenu Mypopupmenu 8【程序说明】右击窗体则打开Windows自带的计算器“C:windowsca

9、lc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件。_ Private Sub Form_MouseUp(Button As Integer,Shift As Integer,_ X As Single,Y As Single)If Button=2 Then n=n+1:Shell _ End SubPrivate Sub Command1_Click()Open C:a1.dat For _Print#1,n:Close#1 _ End SubDim n As Integer 9【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，命令按钮上显示文字“

10、上一张”和“下一张”。运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。（假设在 C:Windows目录下有 1.bmp、2.bmp、8.bmp这样8张图片）Dim n As Byte Private Sub Command1_Click()If n 8 Then Command2.Enabled=True n=n-1 _ If n =1 Then Command1.Enabled=True Call pic If n=8 Then Command2.Enabled=False End Sub

11、Private Sub Form_Load()n=1:Command1.Enabled=False:Image1.Picture=_ End Sub Sub pic()Dim fn As String fn=c:windows +Trim(str(n)+.bmp Image1.Picture=_ End Sub Call pic 10 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，就对_的属性进行设置。Font/font 三、程序设计【程序设计】-题目：(事件)单击窗体。(响应)求sum=1+1+2+3+5+8+13+.+144的和,请将sum 结果值输出到窗体上。使用 do.loop

12、语句完成程序答案：Dim i As Integer Dim s1 As Integer Dim s2 As Integer i=1 s1=1:s2=1 Sum=Sum+s1+s2 Do If s2=144 Then Exit Do End If s1=s1+s2 s2=s1+s2 Sum=Sum+s1+s2 Loop Print Sum 四 程序改错1 题目：下面的程序段用于删除数组中指定位置的数字，如果位置错误给出提示，否则分别显示删除前后 的数组元素-Option Explicit Private Sub Form_Click()Dim a(10)As Integer,x As Integ

13、er,i As Integer,k As Integer For i=1 To 10 a(i)=Int(Rnd*90)+10 Print a(i);Next i Print x=InputBox(请输入要删除第几位数字)If x 0 And x x Print k;i=j j=k*ERROR*k=i-j Loop End Sub 答案1 call fb(x)fx(x)fb x 2 DO While kk 3 k=i+j k=j+i 4 题目：下面程序段将 7个随机整数从小到大排序-Option Explicit Private Sub Form_Click()Dim t%,m%,n%,w%,a

14、(7)As Integer For m=1 To 7 a(m)=Int(10+Rnd()*90)Print a(m);Next m Print For m=1 To 6 t=m*ERROR*For n=2 To 7*ERROR*If a(t)a(n)Then n=t Next n*ERROR*If t=m Then w=a(m)a(m)=a(t)a(t)=w End If Next m For m=1 To 7 Print a(m)Next m End Sub 答案1For n=m+1 To 7 2 If a(t)a(n)Then t=n If a(n)a(t)Then t=n 3 If tm

15、 then if not t=m Then 5 题目：下面程序将 10个整数从大到小排序-Option Explicit Private Sub Form_Click()Dim t%,m%,n%,w%Dim a(10)As Integer For m=1 To 10 a(m)=Int(10+Rnd()*90)Print a(m);Next m Print For m=1 To 9 t=m*ERROR*For n=2 To 10*ERROR*If a(t)a(n)Then n=t Next n*ERROR*If t=m Then w=a(m)a(m)=a(t)a(t)=w End If Next

16、 m For m=1 To 10 Print a(m)Next m End Sub 答案 1 For n=m+1 To 10 2 If a(t)a(t)Then t=n 3 If tm Then If not t=m Then If not m=t then 程序填空1 从键盘输入学生分数，统计学生总人数和各分数段人数，即优秀（90-100）、良好（80-89）、中等（70-79）、及格（60-69）、不及格（60以下）的人数。Private Sub Form_Click()Dim score%,n1%,n2%,n3%,n4%,n5%msg=请输入分数（-1结束）msgtitile=输入数据

17、score=Val(InputBox(msg,msgtitle)*FILL*While _ total=total+1*FILL*Select Case _ Case Is=90 n1=n1+1 Case Is=80 n2=n2+1 Case Is=70 n3=n3+1 Case Is=60 n4=n4+1 Case Else n5=n5+1*FILL*_ score=Val(InputBox(msg,msgtitle)Wend Print n1,n2,n3,n4,n5,total End Sub 答案1 score=0 and score=100 score=0 2 score 3 End

18、Select 2 以下程序的功能如图。Private Sub Form_Click()Dim a%,b%,c%,d!Dim x1,x2 Dim p,q,r a=InputBox(请输入 a的值)b=InputBox(请输入 b的值)c=InputBox(请输入 c的值)d=b*b-4*a*c p=-b/(2*a)If d=0 Then*FILL*If _ Then r=Sqr(d)/(2*a)x1=p+r x2=p-r Else x1=p x2=p*FILL*_ Print x1=;x1,x2=;x2*FILL*_ q=Sqr(-d)/(2*a)Print x1=;p;+;q;i,x2=;p;

19、-;q;i End If End Sub 答案1 d0 0d 2 End If 3 Else 3 本程序用于实现：从键盘接收一数字，判断其是否在数组中，如果在数组中则将其删除，否则显示该数字不在数组中。Private Sub Form_Click()Dim a(10)As Integer,x As Integer For i=1 To 10 a(i)=Int(Rnd*90)+10 Print a(i);Next i Print x=InputBox(请输入要删除的整数)For i=1 To 10*FILL*If a(i)=x Then _ Next i*FILL*If _ Then For k

20、=i To 9*FILL*_ Next k Print 删除后的数组:For i=1 To 9 Print a(i);Next i Else Print 该数字不在数组中 End If End Sub 答案1 Exit For 2 ii 3 a(k)=a(k+1)4 利用下面的过程求 m!和m*n Private Sub Form_Click()Dim m As Integer,n As Integer m=2 n=3*FILL*_ End Sub Private Sub find(x As Integer,y As Integer)Dim s As Integer,i As Integer,

21、p As Integer*FILL*_ For i=1 To x s=s*i*FILL*p=_ Next i Print s,p End Sub 答案1 find m,n cal find(m,n)2 s=1 s=1:p=0 3p+y x*y 5 以下程序用于判断一个正整数（3）是否为素数。Private Sub Form_Click()n=InputBox(请输入一个正整数（3）)k=Int(Sqr(n)i=2 swit=0*FILL*Do While i=k And _*FILL*If _ Then swit=1 Else*FILL*_ End If Loop If swit=0 Then

22、 Print n;是一个素数 Else Print n;不是素数 End If End Sub 答案 1 swit=0 2 n Mod i=0 n/i=ni n/i=int(n/i)3 i=i+1 窗体设计1：在窗体内添加 1个按钮(Command1)，1个框架(Frame1)，2 个标签(Label1，Label2)，3个单选框(Option1，Option2，Option3)，并在框架内添加 2个单选框(Option4，Option5)。2：窗体设置：设置窗体名称(Name)为Form24。设置窗体标题(Caption)为 选项。3：标签设置：设置第 1个标签(Label1)的标题(Cap

23、tion)为您选中了一个Pentium Pro 运行在 Windows 95。设置第 2个标签(Label2)的标题(Caption)为选择处理器和操作系统。4：单选框设置：设置单选框(Option1)的标题(Caption)为486(&4)。设置单选框(Option2)的标题(Caption)为Pentium(&P)。设置单选框(Option3)的标题(Caption)为Pentium Pro(&E)。5：框架设置：设置框架(Frame1)的标题(Caption)为操作系统。设置框架中的单选框(Option4)的标题(Caption)为Windows 95(&W)，选中状态。设置框架中的单选

24、框(Option5)的标题(Caption)为Windows NT(&N)。6：按钮设置：设置按钮(Command1)的标题(caption)为关闭(&C)。答案【控件】VB.CommandButton_Command1 标准答案：Name=Command1【控件】VB.Frame_Frame1 标准答案：Name=Frame1【控件】VB.Label_Label1 标准答案：Name=Label1【控件】VB.Label_Label2 标准答案：Name=Label2【控件】VB.OptionButton_Option1 标准答案：Name=Option1【控件】VB.OptionButto

25、n_Option2 标准答案：Name=Option2【控件】VB.OptionButton_Option3 标准答案：Name=Option3【控件】VB.OptionButton_Option4 标准答案：Name=Option4【控件】VB.OptionButton_Option5 标准答案：Name=Option5【窗体】结果文档.FRM 标准答案：Name=Form24【窗体】结果文档.FRM 标准答案：Caption=选项【控件】VB.Label_Label1 标准答案：Caption=您选中了一个 Pentium Pro 运行在Windows 95【控件】VB.Label_Lab

26、el2 标准答案：Caption=选择处理器和操作系统【控件】VB.OptionButton_Option1 标准答案：Caption=486(&4)【控件】VB.OptionButton_Option2 标准答案：Caption=Pentium(&P)【控件】VB.OptionButton_Option3 标准答案：Caption=Pentium Pro(&E)【控件】VB.Frame_Frame1 标准答案：Caption=操作系统【控件】VB.OptionButton_Option4 标准答案：Caption=Windows 95(&W)【控件】VB.OptionButton_Option4 标准答案：Value=-1 True【控件】VB.OptionButton_Option5 标准答案：Caption=Windows NT(&N)【控件】VB.CommandButton_Command1 标准答案：Caption=关闭(&C)