第五章历年试题汇编.doc

05年4月份（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6 If i = 1 Then x = i If i 0If d c Thenc = c + 1End Ifd = InputBox(请输入一个整数)LoopPrint c + dEnd Sub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:（）。A)12B)11C)10D)9(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming然后编写如下事件过程:Private Sub Command1_Click()Open d: empoutf.txt For Output As #1For i = 1 To Len(Text1.Text)c = Mid(Text1.Text, i, 1)If c = A And c = Z ThenPrint #1, LCase(c)End IfNext iCloseEnd Sub程序运行后,单击命令按狃,文件outf.txt中的内容是:（）。A)MVBPB)mvbpC)MD)mV v B b P p (8)阅读下面的程序Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter 0Print sEnd Sub以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】 05年9月份20）假定有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是（）。A）81 4 B）56 3 C）28 1 D）243 5（21）有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（）。A）15 0 B）20 -1C）10 True D）10 False22）有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为（）。A）12 B）30 C）24 D）18（6）设有以下函数过程：Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数，则s的值为 【6】 。（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens = 【7】End Ifc = Chr$(Asc(c) 【8】 )WendIf s ThenText1 = sEnd IfEnd Sub06年4月份(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Commandl_Click() a=0 For i=1 To 2 For j=1 To 4 if j mod 2 0 thena=a-1 end ifa=a+1 Nextj Nexti print a End Sub 程序运行后,单击命令按钮,输出结果是:A. 0B. 2C. 3D. 406年9月份18)在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是 A) ) 11 B) 12 C) 16 D) 20(20)在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程： Private Sub Commandl_Chick. A) =0 For i=1 To 10 a=a+1 b=0 Forj=1 To 10 a=a+1 b=b+2 Nextj Next i Labell. Caption=Str(a) Labe12.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 _ 。 A) ) 10 和 20 B) 20 和 110 C) 200 和 110 D) 110 和 20(27)设有如下通用过程： Public Function Fun(xStr As String) Dim tStr As String, srtL As Integer tStr+” strL=Len(xStr) i=1 Do While i=strL/2 tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command 1_ Click() Dim S1 As String S1=”abcdef” Text1.Text=UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，则 Text1 中显示的是 _ 。 A) ) ABCDEF B) abcdef C) AFBECD D) DEFABC8 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String a =123456789 For i=1 To 5 Print Space(6-i);Mid $ (a, 【 8 】 ,2*i-1) Next i End Sub 程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。07年4月份（20）以下循环语句中在任何情况下都至少执行一次循环体的是（ ）A）Do While B）While 循环体 循环体 Loop WendC）Do D）Do Until 循环体 循环体 Loop Until Loop（27）为计算1+3+5+99的值，某人编程如下 k=1 s=0 While k=99 k=k+2 : s=s+k Wend Print s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ ）A）While Wend循环语句错误，应改为For k=1 To 99 Next kB）循环条件错误，应改为Whlie k99C）循环前的赋值语句k=1错误，应改为k=0D）循环中两条赋值语句的顺序错误，应改为s=s+k : k=k+2（28）下面程序在调试时出现了死循环 Private Sub Command1_Click（） n=InputBox（“请输入一个整数”） Do If n Mod 2=0 Then n=n+1 Else n=n+2 Else If Loop Until n=1000End Sub下面关于死循环的叙述中正确的是（ ）A）只有输入的n是偶数时才会出现死循环，否则不会B）只有输入的n是奇数时才会出现死循环，否则不会C）只有输入的n是大于1000的整数时才会出现死循环，否则不会D）输入任何整数都会出现死循环 6） 下面程序的功能是从键盘输入1大于100的整数m，计算并输出满足不等式1+22+32 +42 +.+n2m的最大的n。请填空 Private Sub Command1_Click（） Dim s ,m,n AS Integer m=Val（InputBox（“请输入一个大于100的整数”） n= s=0 Do While sm n=n+1 s=s+n*nLoopPrint “满足不等式的最大n是 n-1 End Sub9）某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回FalseFunction Prime（a As Integer）