选择题1. Visual Basic中的窗体文件的扩展名是A、.regB、.frmC、.basD、.vbp2. Visual Basic中的模块文件的扩展名是A、.regB、.frmC、.basD、.vbp3. Visual Basic中的工程文件的扩展名是A、.regB、.frmC、.basD、.vbp4. 一个对象可以执行的动作和可被对象识别的动作分别称为A、事件、方法B、方法、事件C、属性、方法D、过程、事件5要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，要对下列属性进行设置。
A．MaxButton B．Width C．MinButtonD．BorderStyle6 在用菜单编辑器设计菜单时，必需输入的项有＿＿＿＿。
A．快捷键B．索引C．标题D．名称8 文件号最大可取的值为A 255 B511 C512 D2569 以下能判断是否到达文件尾的函数是＿＿＿＿A BOFB LOC C LOFD EOF10 Visual basic 常见的颜色设置中，表示红色的是A vbblueB vbredC vbblackD vbcyan11当使用line方法画直线后，当前坐标在A （0,0）B 直线起点C 直线终点D容器的中心12语句circle（500,500），300,8，-6，-3将绘制A圆 B 椭圆 C 圆弧D扇形13坐标度量单位可以通过来改变A DrawstyleB DrawwidthC ScaleD Scalemode14对象的边框类型由设置A DrawstyleB DrawwidthC BorderstyleD Scalemode 15以下的属性和方法中可重新定义坐标系A DrawstyleB DrawwidthC ScaleD Scalemode16执行语句line（1200,1200）——step(1000,500),B后，CurrentX=A 2200B 1200C 1000D 170017 在下列通用对话框的叙述中，错误的是A Commondialogl.showfont显示字体对话框B 在打开或另存为对话框中，用户选择的文件名可以通过Filetitle 属性返回C在打开或另存为对话框中，用户选择的文件名及其路径可以经Filetitle属性返回D 通过对话框可以用来制作和显示帮助对话框填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。
2欲定义一个定长为10的字符串变量Mystr，可写成：Dim Mystr As String*103把条件为1≤ x ≤ 5 写成VB表达式为：1<=x And x<=54 在菜单编辑器中菜单项前面4个小点的含义是该菜单项为下一级的菜单项程序运行题1.Private Sub Form_Click()Dim y As IntegerDoy = InputBox("y=")If (y Mod 10) + Int(y / 10) = 10 Then Print yLoop Until y = 0End Sub运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。
37 55 64 28 19程序运行题2.Private Sub Command1_Click()Dim i As Integer, n As IntegerDim x As String, c As Stringx = InputBox("x=")n = Len(x)If n Mod 2 = 1 Then c = Mid(x, n \ 2 + 1, 1)For i = 1 To Len(x) \ 2c = Mid(x, Len(x) + 1 - i, 1) + c + Mid(x, i, 1)Next ix = cPrint xEnd Sub运行时，第一次单击Command1后输入“abc”，写出运行结果。
第二次单击Command1后输入“abcd”，写出运行结果。
cba cdab程序运行题3Private Sub Command1_Click()Dim m As Integer, n As IntegerDim a(3, 3) As IntegerFor m = 1 To 3For n = 1 To 3a(m, n) = (m - 1) * 3 + nNext nNext mFor m = 2 To 3For n = 1 To 2Print a(n, m);Next nNext mEnd Sub写出程序运行后，单击命令按钮，窗体上显示的结果。
2 53 6程序运行题4Private sub form_click()Dim a(2,3) as integerFor i =1 to 2For j=1to 3a(i,j)=2*i-jnext j,ifor h=1to 3for k=1to 2form1.print a(k,h),next kprintnext hend sub写出程序运行后，单击窗体，form1 上的输出结果1 30 2-1 1程序运行题5Public Function f(m as integer , n as integer)as integer Do while m<>nDo while m>n : m=m-n : loopDo while n>m : n=n-m : loopLoopf=mEnd functionPrivate Sub Command1_Click( )Print f(24,18)End Sub写出程序运行时单击Command1后，Form1上的输出结果。
6程序运行题6Dim a as integer, b as integer c as integerPublic sub p1(x as integer,y as integer)Dim c as integerX=2*x y= y+2 c=x+yEnd subPublic sub p2(x as integer, byval y as integer)Dim c as integerX=2*x y= y+2 c=x+yEnd subPrivate sub command1_click()a =2 :b=4:c=6call p1(a,b)print “a=”; a; “b=”; bcall p2(a,b)print “a=”; a; “b=”; bend sub写出程序运行后，单击command1 按钮，form1 上的输出结果a=4 b=4 c=8a=4 b=4 c=4程序运行题7请写出在文本框中输入“321”（3个字符）并按回车键后标签控件上的显示结果。
Private Sub Text1_KeyPress(KeyAscii As Integer)Dim a As String * 1, b As String, n As Byte, i As IntegerIf KeyAscii = 13 Thenb = Text1.Text: n = Len(b)For i = 1 To n \ 2a = Left(b, 1)b = Right(b, n - 1) + aLabel1.Caption = Label1.Caption + b +vbCrLfNext iEnd IfEnd Sub213程序运行题8请写出在文本框中输入“ABCD”（4个字符）并按下回车键后，窗体上显示的结果。
Private Sub Text1_Change()Print Text1.TextEnd SubAABABCABCD程序填空题1Option Base 1Private Sub Form_Click()Dim a(5, 5) As IntegerDim i As Integer, j As Integer, p As Integer Print "排序前5*5矩阵"RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 100)Print Tab(6 * j); a(i, j);Next jPrintNext iFor i = 1 To 4p = iFor j = i + 1 To 5If a(p, p) > a(j, j) Thenp = jEnd IfNext jk = a(i, i)a(i, i) = a(p, p)a(p, p) = kNext iPrintPrint "排序前5*5矩阵"For i = 1 To 5For j = 1 To 5Print Tab(6 * j); a(i, j);Next jPrintNext iEnd Sub程序填空题2本程序求3-100之间的所有素数（质数）并统计个数；素数的个数显示在窗体Form1上。
Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim t1 As Integer, t2 As Integercount = 0For t1 = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1))If t1 mod t2=0 Then flag = FalseNext t2If flag thencount = count + 1End IfNext t1Form1.print countEnd Sub程序填空题3如果一个整数的所有因子之和与自身相等，则称该数为完数。
例如：6=1+2+3，所以6是一个完数。
以下程序输出1000之内的完数。
Function IsWs(m as integer) As BooleanDim i as integer , t as integerFor i = 1 To m-1If m Mod i = 0 Then t = t + iNext iIf t=m ThenIsWs = TrueElseIsWs = FalseEnd FunctionPrivate Sub Form_Click()Dim i%For i = 1 To 1000If isws(i)Then Print iNext iEnd Sub程序填空题4下面程序是在用户按了Enter后将一个组合框(Cbo)中没有的项目添加到组合框中。
Sub Cbo_Keypress(Keyascii As Integer)Dim flag as BooleanIf Keyascii=13 thenFlag=FalseFor i=0 to Cbo.ListCount-1If Cbo.list(i)=cbo.text ThenFlag=TrueExit ForEnd IfIf not flag （2） ThenCbo.additem cbo.text （3） ElseMsgbox (“ 组合框中已有该项目”)End ifEnd ifEnd sub程序设计题 11. 用输入对话框输入x ，根据下式计算对应的y ，并在窗体上输出y 的值。