VB期末练习卷七

VB练习卷七一、 语言基础题（40分）判断题（10分）1.窗体的Caption 属性用来设置窗体的标题，在代码中可以用这个标题引用该窗体。2.Print方法的缺省对象是当前窗体。3.任何时候按下键盘上一个键，将会触发命令按钮的KeyPress事件。4.用 Exit Do语句可以退出 Do - Loop 循环，用 Exit Sub语句可以退出Sub过程，同理用 Exit If 也能退出If条件语句。5.Dim a1,a2 As Integer语句显式声明变量a1和a2都为整型变量。6.字符串常量必须用西文的双引号或单引号括起来。7.执行DoLoop While语句时，不管条件真假，首先会无条件地执行一次循环。8.在工具箱内双击命令按钮图标，便会在窗体上建立一个命令按钮。9.对象的Top属性和Left属性都必须大于或等于零。10.在窗体或图片框中用line图形方法画完直线后，窗体或图片框控件的CurrentX和CurrentY属性值自动被置成直线终点的坐标位置值。单选题（10分）1 以下哪个控件没有Caption属性。A LabelB OptionButtonC FrameD ListBox2 将通用对话框控件Commondialog1显示为颜色对话框，可以改变该控件的哪个属性？A ColorB FileNameC ActionD Filter3 将当前窗体中显示的文字及绘制的图形全部清除，可以用以下哪个方法？A Me.ClearB Me.ClsC Me=”D Me.Delete4 在拖动滚动条的滚动块的时候，在没有松开鼠标前会触发滚动条的什么事件？A ChangeB KeydownC Scroll D Dragover5 某顶级菜单项的热键字母为F，以下哪个操作等同于单击该菜单项？A 同时按下Ctrl和F键B 按下F键 C 同时按下Alt和F键D 同时按下Shift和F键6 要使得文件列表框file1中只显示文件后缀名为bmp和jpg的图片文件，以下哪个语句是对的？A File1.Pattern = *.bmp|*.jpg B File1.Pattern = 图片文件C File1.Pattern = *.bmp;*.jpg D File1.Pattern = 图片文件|*.bmp;*.jpg 7 要将定时器控件的宽度设置的大一些，以下哪个叙述是正确的？A设置定时器的Width属性B设置定时器的left属性C设置定时器的Height属性D 无法对定时器的宽度进行设置8 要改变Label控件中文字的颜色，可以设置Label控件的什么属性？A FontColorB FillColorC ForeColor D BackColor9 哪一条语句执行后将会删除文本框Text1中选中的文本？A Text1.Text=”B Text1.SelText=” C Text1.ClearD Text1.SelText.Clear10将定时器的时间间隔设置为1秒，那么定时器的Interval属性值应设为？A 1000 B 1 C 100 D 10填空题（20分）1 将数学式写成VB表达式。2 已知a=2,b=3,c=4,d=5 求表达式not a=c or 4*c=b2 and ba+c的值。3 写出a和b都为正整数的VB逻辑表达式。4 写出表达式Val(10.5abc1) * Fix(-2.7) 的值。5 写出表达式 Chr(Asc(“china”)+3)的值。6 写出将X四舍五入保留两位小数的VB表达式。7 写出循环结构FOR I=30 TO 1 STEP 3 Next I 的循环次数。8 要在图片框控件pic的中央画一个半径为1000twips的红色圆形，画圆语句怎么写？9 要将文本框中所有输入的字符都显示为*，应该如何进行设置？10 写出在VB中调用C盘Windows文件夹中的可执行文件为calc.exe的计算器程序的语句。二、 程序阅读题（20分）1第6页Private Sub Form_Click() For i = 5 To 1 Step -1 Print Space(10 - i); For j = 1 To 2 * i Print Trim(Str(i); Next j Print Next iEnd Sub写出单击窗体后程序的运行结果。2Private Sub Form_Click() Dim x As Integer Static s As Integer x = Val(InputBox(请输入一个正整数=) If x Mod 2 = 0 Then s = s * x Else s = s + x End If Me.Print s= + Str(s)End Sub写出单击窗体四次，每次输入分别为1，2，3，4后，窗体上显示的结果。3Private Sub Form_click() Open c:data1.dat For Input As #1 Call outputdata(c:data2.dat) CloseEnd SubPrivate Sub outputdata(filename As String) Dim a As String, b As Integer Open filename For Output As #2 Do While Not EOF(1) Input #1, a, b If Left(a, 1) = 李 And b = 60 Then Print #2, a, b End If LoopEnd Sub已知在c:data1.dat文件中数据如下：张寇,78,李琳,80,王澜,56司马,38李晓,90刘召,50李名,45写出单击窗体后，c:data2.dat文件中的数据。4Option ExplicitDim x As IntegerPrivate Sub Form_Click() Static y As Integer Call sub1(y) Print x=; x, y=; y x = fun1(y) Print x=; x, y=; yEnd SubPublic Sub sub1(x As Integer) x = x + 1End SubPublic Function fun1(ByVal x As Integer) As Integer fun1 = 2 * xEnd Function写出连续单击窗体两次后程序运行结果。三、 程序填空题（20分）1查找程序：下列程序段是用于在文本框Text1显示的文本中查找任意给定的字符串，查找的内容由键盘输入；将查找结果（在文本框中找到该字符串的个数或没有找到）用消息框给出。Private Sub Form_Click() Dim Strfind As String, Length As Integer, Sum As Integer, I As Integer Strfind = InputBox(请输入查找的字符串内容) Length = -（1）- I = 1 Sum = 0 Do While I = -（2）- If Mid(Text1.Text, I, Length)= -（3）- Then Sum = Sum + 1 End If I = I + 1 Loop If -（4）-Then MsgBox 没有找到！ Else MsgBox 找到了 & -（5）- & 个 End IfEnd Sub2以下程序随机产生100个属于3，1000之间的整数，利用Isprime判断一个整数是否是素数的函数过程挑出其中的素数放在b数组中，对这些素数按从大到小的顺序进行排序，最后按每行5个的格式输出这些素数。Private Sub Form_Click() Dim a(100) As Integer Dim b(100) As Integer Dim i As Integer, j As Integer, n As Integer For i = 1 To 100 a(i) = -（1）- Next i For i = 1 To 100 If Isprime(a(i) Then n = n + 1 b(n) = -（2）- End If Next i For i = 1 To n - 1 For j = i + 1 To n If b(i) x - 1 Then -（5）- End IfEnd FunctionPublic Sub swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub四、 程序设计题（20分）1 编写程序，单击窗体时在窗体上打印出如下所示的图形。 * * * * * * * * *2 设计一个计时器程序，界面设计如图一所示，控件的属性见表一。在单击“开始”按钮后，定时器开始计时，同时在在标签Label1中显示“计时开始！”；当计时达到所选择的时间后停止计时，在标签Label1中显示“时间到!”的字样。程序运行时默认的时间选择为10分钟。请写出完成该程序功能的相应的事件过程的代码。控件namecaptionInterval命令按钮Command1开始定时器Timer11000标签Label1Label1框架Frame1选择时间单选钮Option1(0)5分钟单选钮Option1(1)10分钟单选钮Option1(2)20分钟图一表一VB练习卷七参考答案判断题： 1.2.3. 4. 5. 6. 7. 8. 9. 10. 单选题1.D2.C3.B4.C5.C6.A7.D8.C9.B10.A填空题1.(2*pi*r+exp(-5)*log(x)2.F(a)=a and a=0 and int(b)=b and b=04.-215.(x*100+0.5)/1007.108.pic.circle (pic.scalewidth/2,pic.scaleheight/2),1000,vbred9.passwordchar设为*10. shell “c:windowscalc.exe”一、 阅读1. 2222 112 s=1s=2s=5s=203李琳 80 李晓 904X=0y=1X=2y=1X=2y=2X=4y=2二、 填空 1.(1)Len(strfind)(2)Len(text1.text)(3)Strfind(4)Sum=0(5)Str(sum)2.(1) Int(998*rnd+3)