阅读程序写结果.doc

阅读程序写结果题目：1、 在窗体模块中编写以下Function过程和窗体Click事件过程 Private Function CommFun(n As Integer)As Integer Dim I As Integer S=1 For i=1 To n s=s*i Next i CommFun=s End Function Private Sub Form_Click() Dim Sum As Integer Dim K As Integer sum=0 For k=1To 3 sum=sum+CommFun(k) Next k Print sum End sub 当程序运行时，在窗体中单击鼠标左键时，则程序的输出结果是 。答案：9权重：1难易度：1题目：2、 在窗体模块中编写以下Sub过程和窗体Click事件过程Private Sub suba(x As Integer , y As Integer)Dim t As Integert=x: x=y: y=tEnd Sub Private Sub Form_Click()Dim a As Integer,b As Integer a=10:b=20Call suba(a,b)Print a;bCall suba(b,a)Print a;bEnd Sub当程序运行时，在窗体中单击左键时，则程序的输出结果是 。答案：20 1010 20权重：2难易度：1题目：3、 在窗体模块中编写以下Function过程和窗体Click事件过程Private Function funa(x As Integer) As IntegerStatic s As Integers=s+xfuna=funb(s)End FunctionPrivate Function funb(y As Integer)As IntegerStatic sum As Integersum=sum+yfunb=sumEnd FunctionPrivate Sub Form_Click()Dim acc As Integer ,i As Integeracc=0For i=1 to 3acc=acc+funa(i)Next iPrint accEnd Sub当程序运行时，在窗体中单击左键时，则程序的输出结果是 。答案：15权重：1难易度：2题目：4、 在窗体模块中编写以下Sub过程和窗体Click事件过程Private Sub sub1(ByVal a As Integer,b As Integer)a=a+bb=a+bEnd SubPrivate Sub Form_Click()Dim x As Integer ,y As Integerx=10:y=20Call sub1(x,y)sub1 x,yPrint x;yEnd Sub当程序运行时，在窗体中单击左键时，则程序的输出结果是 。答案：10 110权重：2难易度：1题目：5、在窗体中添加一个文本框（名称为Text1）和一个命令按钮（名称为Command1），编写Command1的Click事件过程和通用过程mysub，代码如下：Private sub mysub(pal As String,a As Integer,b As Integer)Dim str As String ,n As Integer,i As Integer n=Len(Trim(pal)For i=1 to nIf Mid(pal,i,1)=”A” And Mid(pal,i,1)=”0” And Mid(pal ,i,1)a(I)thenexchange=truetemp=a(I)：a(I)=a(I-1)：a(I-1)=tempendifnextImsgboxmsgendsub答案：对数组A中的5项内容进行升序排列，输出时每一值占一行权重：2难易度：2题目：12、subtest(byvalIasinteger)写出窗体单击后打印出的内容（注意格式）I=I+1PrintIEndsubSubform1_click()DimII=12PrintITestIPrintIEndsub答案：12 13 12权重：3难易度：2题目：13、scale(-5,5)-(5,-5) line(-4,3.5)-(4,-3.5) line(-4,0)-(4,0) line(0,-3.5)-(0,3.5)要求：在下图画出执行结果，并注明-5，5，-4，4，3.5，-3.5,0答案： 权重：2难易度：2题目：14. subform1_load()form1.keypreview=trueendsubsubform1_keydown(keycodeasinteger,.) ifkeycode=vbkeyAthencommand1.setfocusifkeycode=vbcodePthencommand2.setfocusendsuba、写出该段程序的结果及设置keypreview属性的作用。B、写出当keypreview=false时程序的执行结果。答案：a、任一时候，按下“A”/“a”，command1获得焦点”，若按下“P”/“p”，command2获得焦点。 Keypreview作用：实现窗体在控件之前识别键盘事件。 B、当keypreview=false时，只有当在text1中输入“A”/“a”，“P”/“p”时，command1,command2相应获焦点。权重：3难易度：4题目：15、把窗体的KeyPreview属性设置为True,并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)Print KeyAscii End Sub (1) 程序运行后，如果将CapsLock键锁定在大写的状态，这时按下A键时，则：在窗体上输出的输出结果为 和 。（2）如果将CapsLock键锁定在小写的状态，这时按下a键时，则：在窗体上输出的输出结果为 和 。答案：(1)A 65 (2)A 97权重：3难易度：3题目：16、subform1_click()dimchar,filename,textdatafilename=inputbox(输入文件名：)iflen(filename)thenopenfilenameforinputas#1dowhilenoteof(1)char=input(1,#1)ifcharchr(10)thentextdata=textdata&charelsemsgboxtextdatatextdata=endifloopclose#1endifendsub答案：读取给定文件中的内容，读取时一个字符一个字符读取，放至textdata，直到遇到回车符，将该行文字显示之后将textdata清空。（即逐行显示指定文件中的内容）权重：3难易度：3题目：17、执行下面的程序段后，b的值为 。a=300b=20a=a+bb=a-ba=a-b答案：20 权重：3 难易度：3题目：18、 以下程序段的输出结果是 。num=0While num=2num=num+1Print numWend答案：1 2 3权重：3难易度：1题目：19、 在窗体画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是 。答案：33权重：3难易度：2 题目：20、 在窗体画一个命令按钮，然后编写如下过程：Function fun(ByVal num As Long)As LongDim k As Longk=1num=Abs(num)Do While numk=k*(num Mod 10)num=num10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn=InputBox(请输入一个数)n=CLng(n)r=fun(n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 。答案：24权重：2难易度：2题目：21、设有如下程序Private Sub Form_Click()Dim a AS Integer，b As integera20:b=50p1 a,bp2 a,bp3 a,bPrinta;a,b;bEnd SubSub pl(x As Integer，ByVal y As Integer)x=x十10vv十20 End SubSub p2(byVal x As Integer, y As Integer)xx十10yy十20End SubSub p3(ByValx As Integer, ByVal y As Integerxx十10y=y十20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a_和b=_。答案：a=0 b=0权重：2难易度：3题目：22、设有如下程序Private sub search(a()As variant，ByVal key As Variant，index%)Dim IForILBound(a)To UBound(a)If keya(I) ThenindexIExit SubEnd IfNext IIndex-1End Sub Private Sub Form_Load()ShowDtm b() As VariantDim n As IntegerbArray(1，3，5，7，9，11，13，15)Call search(b，11，n)Printt nEnd Sub程序运行后，输出结果是_。答案：5权重：3难易度：2题目：23、下面程序运行后，输出的结果为_Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(LeftA$,2)+Right$(B$,2),C$) Print C$End Sub 答案：0权重：2难易度：2题目：24、 执行下面的程序段后，b的值为 。 a=300 b=20 a=a+b b=a-b a=a-b 答案：20权重：3难易度：1题目：25、 以下程序段的输出结果是 。num=0 While numy,x,y) End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub 程序运行后，单击命令按钮，输出结果为 。答案：200权重：2难易度：2题目：30、 执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i5Next i答案：21权重：3难易度：2题目：31、 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是。答案：15权重：3难易度：2题目：32、 在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()x=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b = InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为。答案：2权重：4难易度：2题目：33、在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Formm_Load()Text1 Text=Text2 Text=End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为。答案：123321权重：3难易度：2题目：34、 阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为。答案：14权重：4难易度：3题目：35、在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是。答案：55权重：3难易度：2题目：36、在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为答案：2，72权重：4难易度：2题目：38、 在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To 1 Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是 。 答案：1234权重：4难易度：1题目：39、 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim a(4,4)For i =1 To 4For j =1 To 4a(i,j) = (i-1)*3+jNext jNext iFor i =3 To 4For j =3 To 4Print a(j,i);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为 。 答案：9 12 10 13权重：3难易度：2题目：40、 假定有如下的Sub过程：Sub S（x As Single,y As Single）t = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出结果为 。答案：1.25 1权重：3难易度：3题目：41、 阅读程序：Function F(a As Integer)b = 0Static cb = b+1c = c+1f = a+b+cEnd FunctionPrivate Sub Commandl_Click ()Dim a As Integera =2For i =1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为 。答案：4 5 6权重：2难易度：2 题目：42、 阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为 。答案：2 4 6 8权重：4难易度：2题目：43、执行下面的程序段后，s的值为 。s = 5For i = 2.6 To 4.9 Step 0.6s = s+1Next I答案：9权重：3难易度：1题目：44、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 。答案：321456权重：2难易度：1 题目：45、设计一个程序，在程序中添加一个名称为Form1的窗体，添加窗体的Click事件过程代码，Private Sub Form_Click() Dim x As Single,y As Single X=InputBox(“输入第一个数据”,“输入数据”) y=InputBox(“输入第二个数据”, “输入数据“) Print x+yEnd Sub程序运行时，单击窗体，先后在两个输入对话框中输入123和456，则程序的输出为：答案：5 7 9权重：3难易度：3题目：46、设窗体的Click事件过程代码如下Prive Sub Form.Click()Dim k As Integer, a As IntegerK=1If k=1 Then a=2*kIf k=2 Then a=2*k+1If k0 Then x=y-3 Else y=x+3Print x-y;y-xEnd Sub则当程序运行时，在窗体上单击鼠标时的输出结果是：答案：-3 3权重：2难易度：1题目 ： 51、下列程序运行后，输出的结果为（ ）。B=1Do while b40 B=b*b(+1)LoopPrint B答案: 42 权重：2难易度：2题目：52、当程序运行时，在窗体上单击鼠标时，下面事件过程的执行结果为：Private Sub Form_Click()Dim a(1 To 20)For k=1 to 20 a(k)=k*kNext kPrint (k)End Sub答案：21权重：2难易度：1题目：53、在窗体上画一个命令按钮（将其名称定为Command1），编写其Click事件过程代码：Private Sub Command1_Click()Dim m(1 to 10)For K = 1 To 10 m(k)=11-kNext kFor k=1 To 10 Print m(m(k);Next kEnd Sub程序运行时，单击命令按钮时，程序的输出结果是：答案：1 2 3 4 5 6 7 8 9 10权重：3难易度：2题目 ： 54、在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为（ ）。Private sub_command1_click( )Dim aA=array(1,2,3,4,5)For k=1 to 4 S=s+a(k)Next kPrint sEnd sub答案: 14 权重：3难易度：2题目：55、 在窗体上画一个命令按钮（将其名称定为Command1），编写其Click事件过程代码：Option Base 1Private Sub Command 1_Click()Dim x() As Integer ,n As Integer ,k As Integerm=Val(InputBox(“请输入m的值”)n=Val(InputBox(“请输入n的值”)ReDim x(m To n)For k=Lbound(x,1) To Ubound(x ,1)x(k)=k*kPrint x(k)Next kEnd Sub程序运行时，单击命令按钮，在出现的输入对话框中分别输入5和5，则程序的输出结果是：答案：25权重：4难易度：1题目 ： 56、下列程序执行后，变量S的值为（ ）。 Dim s As Long, x As Integer s = 0 x = 1 Do While x 10 s = s + x x = x + 2 Loop PRINT S答案: 25 权重：2难易度：1题目 ： 57、下列程序段的执行结果为（ ）。Dim A(4) N = 3 A(1) = 1 For K = 0 To N - 1 For L = 1 To K + 1 X = K + 2 L A(X) = A(X) + A(X - 1) If K N - 1 Then Exit For Print A(X); Next L Next K答案: 1 2 1 权重：3难易度：1题目：58、 在窗体上画一个文本框，其名称为Text1, 然后编写如下事件过程：Private Sub Text1_KeyPress(keyAscii As Integer) Dim str As StringStr=Chr(keyAscii)KeyAscii =Asc(UCase(str)Text1.Text=String(2,KeyAscii)End Sub程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容为：答案：BBB权重：2难易度：1题目：59、假定编写了如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single) If Button And 3=3 Then Print “Hello” End IfEnd Sub程序运行后，为了在窗体上输出“Hello”,应在窗体上执行以下哪个操作：（A）只能按左按钮 （B）只能按右按钮（C）必须同时按下左、右按钮 （D）按下左按钮或右按钮都可答案：（D）权重：2难易度：1题目：60、 假定编写了如下事件过程：Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single,Y As Single) If （Button And 3）=3 Then Print “Hello” End IfEnd Sub程序运行后，为了在窗体上输出“Hello”,应在窗体上执行以下哪个操作：（A）只能按左按钮并拖动 （B）只能按右按钮并拖动（C）必须同时按下左、右按钮并拖动 （D）按下左按钮拖动或右按钮拖动都可答案：c权重：2难易度：2题目：61、编写了如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)If Shift =6 And Button =2 Then Print “Hello”End IfEnd Sub程序运行后，为了在窗体上输出“Hello”,则应在窗体上执行以下哪个操作：（A）同时按下Shift键和鼠标左按钮 （B）同时按下Shift键和鼠标右按钮（C）同时按下Clrl、Alt键和鼠标左按钮 (D) 同时按下Clrl、Alt键和鼠标右按钮答案：d权重：2难易度：1题目：62、 执行以下程序段后，变量c$的值为a$=“Visual Basic Programing”b$=“Quick”c$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,11)答案：Quick BASIC Programing权重：2难易度：1题目：63、执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i5Next i答案：21权重：3难易度：2题目：64、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是。答案：15权重：4难易度：2题目 ：65、当执行以下过程时，在名为lblResult的标签框内将显示（ ）。Private Sub cmdlt_click()Dim I, RR=0For I=1 To 5 Step 1R=RINext IlblResult.Caption=Str$?End Sub答案: 字符串15 权重：2难易度：1题目 ： 66、先在窗体上添加一个命令按纽，然后编写如下程序：Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num 10 Loop fun = kEnd FunctionPrivate Sub Command1_Click() Dim n As Long Dim r As Long n = InputBox(请输入一个数) n = CLng(n) r = fun(n) Print rEnd Sub则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是（ ）。答案: 0 权重：3难易度：2题目：67、 阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为。答案：14权重：2难易度：1题目：68、在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Ttext1.Text=Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是。A) 在文本框Text1中输出55B) 在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值答案：c权重：2难易度：1题目 ： 69、单击命令按钮时，下列程序代码的执行结果为（ ）。Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr = strLen = Len(xStr) I = 1 Do While I = strLen / 2 tempStr = tempStr + Mid(xStr, I, 1) + Mid(xStr, strLen - I + 1, 1) I = I + 1 Loop PickMid = tempStrEnd Function Private Sub Command1_Click() Dim FirstStr As String FirstStr = abcdef Print PickMid(FirstStr)End Sub答案: afbecd 权重：4难易度：2题目：70、 以下程序的输出结果是Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next IFor i=1 To 3k=k+p(i)*2Next iPrint kEnd sub答案：33权重：2难易度：2题目 ：71、在窗体上添加一个命令按钮，名为command1，一文本框，名为text1,则执行如下事件过程后，文本框中的输出为（ ）。For I = 1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next jNext I Text1.Text =str( x)答案: 21 权重：3难易度：2题目 ：72、