二级VB复习题.docx

1、二级VB复习题三、阅读程序，回答问题1、执行下面程序，如果运行时输入2，则在窗体上输出结果是 2 。Private Sub Command1_Click()Dim x As Integer x = InputBox(Input x) If x 1 Then y = x + 2 ElseIf x 5 Then y = x + 3 ElseIf x = 2 Then y = x End If Print yEnd Sub2、运行下面程序，窗体上第一行显示的结果为 BBCDE ；第四行显示的结果为 EDCBBCDE 。Private Sub Command1_Click()Dim ch As Str

2、ing, i As Integerch = BCDEFor i = 1 To Len(ch) ch = Mid(ch, 2 * i - 1, 1) & Right(ch, Len(ch) Print chNext iEnd Sub3、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is 10X = 30Case 10X = 40End S

3、electText2.Text = XEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是_10_。4、设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：Private Sub Command1_Click() Dim s As String, ch As String s = For k = 1 To Len(Text1) ch = Mid(Text1, k, 1) s = ch + s Next k Text1.Text = sEnd Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Te

4、xt1中显示的是_ cisaB _。5、运行下面程序，窗体上显示的结果为 7 35 。Private Sub Command1_Click()Dim a As Integer, b As Integera = 1b = 0Do While a sqr(b)Print aEnd sub11、阅读以下程序代码，写出执行这些程序代码后，在窗体上显示的内容 3 4 7 11 18 。程序：Private Sub Form_Click()Dim n1 as integer, n2 as integer, n3 as integern1=3n2=4Print n1； n2；Don3=n1+n2Print

5、n3；n1=n2n2=n3Loop until n3=15End sub12、阅读以下程序代码，写出执行这些程序代码后，在窗体上显示的内容为 7 10 13 13 。Private Sub Form_Click()Dim x, y as integerx=3y=4Do while x+y20 then exit doLoopPrint yEnd sub13、第一行结果为 ABCDEFG 第二行结果为 BCDEFGH Private Sub Form_Click() Dim str1 As String, i As Integer, str As String str1 = ABCDEFG Fo

6、r i = 1 To Len(str1) str = str & Chr(Asc(Mid(str1, i, 1) + 1) Next i Print str1 Print str End Sub14、第一行结果为 x=35 y=55 ， 第二行结果为 m=15 n=55 。 Private Sub Form_Click() Dim m As Integer, n As Integer m = 15: n = 20 Call value(m, n) Print m=; m, n=; n End Sub Private Sub value(ByVal x As Integer, y As Inte

7、ger) x = x + 20 y = x + y Print x=; x, y=; y End Sub四、完善程序1、编写一个程序，用随机函数生成 10个两位数，存放在数组Com中，并从中找出一个最大数Max和一个最小数Min。Option ExplicitOption Base 1Private Sub Form_Click()Dim com(12) As Integer, i As IntegerDim max As Integer, min As IntegerRandomizeFor i = 1 To 10com(i) = Int(90*Rnd)+10Print com(i);Nex

8、t iPrintmax = com(1): min = com(1)For i = 2 To 10If com(i)max Then Max=com(i)ElseIf com(i)100 then Print int1 Next int1 End sub 4、以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A（1）到A（10）依次赋给B（1，1）到B（1，10），把A（11）到A（20）依次赋给B（2，1）到B（2，10），把A（91）到A（100）依次赋给B（10，1）到 B（10，10）。请填空。 Option Base 1 Private Su

9、b Form_Click() Dim i As Integer,j As Integer Dim A(1 To 100) As Integer Dim B(1 To 10,1 To 10) As Integer For i=1 To 100 A(i)=Int(Rnd * 100) Next i For i=1 To _10_ For j=1 To _10_B(i,j)= (i-1)*10+j Print B(i,j); Next j Print Next i End Sub5、本程序的功能是：产生10个个位数不相同的三位随机正整数，并存放其下标与其个位数相同的数组元素中，例如：395应存到a(

10、5)中。Option ExplicitPrivate Sub Form_click() Dim a(9) as integer,x as integer,k as integer,I as integer RandomizeDo while I=9 X=int(Rnd*900+100) K=x mod 10 if a(k)=0 then a(k)=x I=I+1 end ifloopfor I=0 to 9print a(i);next Iend sub6、下面的程序是找出两个正整数a和b，使得ab、a+b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。 Option Expl

11、icitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd(ByVal a As Integer, ByVal b As Integer) As Integer Do c = a Mod b: a = b: b = c Loop until c=0 Gcd = aEnd FunctionPrivate Sub form_click() n = 0 For a = 1 To 49 b =99 a c = Gcd(a, b) If c Mod 3 = 0 Then n = n + 1 Prin

12、t a, b, c End If Next a Print nEnd Sub7、下列程序的功能是随机生成10个两位正整数，统计其中奇数和偶数的累加和，并打印输出奇数和偶数的个数Private Sub Form_click() Dim x As Integer, s1 As Integer, s2 As Integer Dim n1 As Integer, n2 As Integer, i As Integer Randomize For i = 1 To 10x = Int(Rnd * 90) + 10 Print x; If x mod 2=0 Then n2 = n2 + 1 s2=s2+

13、x Else n1=n1+1 s1 = s1 + x End If Next iPrint Print 奇数个数=; n1, 偶数个数=; n2End Sub8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim A(10) As Integer For I = 1 To 10 A(I) = I Next Call Swap（a） For I = 1 To 10 Print A(I); Next End Sub Sub Swap(B() As Integer) N = Ubound(B

14、） For I = 1 To N / 2 T = B(I) B(I) = B(N) B(N) = T N=N-1 Next End Sub 上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即A(1)与A(10)的值互换，A(2)与A(9)的值互换，A(5)与A(6)的值互换。请填空。9、在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Open d: empdat.txt For Output As #1 Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As

15、 Integer) If KeyAscii = 13 Then If UCase(Text1.Text) = END Then Close #1 End Else Write #1, Text1.Text/Text1 Text1.Text = End IfEnd IfEnd Sub以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt ，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。10、以下程序的功能是：把程序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。Private Sub Command1_Click() Dim inData As String Text1.Text=Open smtext1.txt For Input As 2 Do While Not EOF(2) Input #2, inData Text1.Text=Text1.Text & inDataLoopClose #2End Sub