2011年江苏省计算机二级VB试题库 (8)

End Function

32．下面的程序是把给定的十六进制正整数转换为十进制数。

提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。

(an an-1?a1)16=an×16n-1+an-1×16n-2+?+a1×160 Option Explicit

Private Sub Form_Click()

Dim St As String, Dem As Long St=InputBox(\输入一个十六进制数\ Dem=Convert(St) Print St; \End Sub

Private Function Convert(S As String)As Long

Dim N As Integer, I As Integer, Substring As String*l Dim P As Long, K As Long, Asc1 As Integer N= （42） P=16^N

For I=1 To N P=P／16

Substring= （43） Select Case Substring Case \

K=K+P*Val(Substring) Case （44） Asc1=Asc(Substring)-Asc(\

（45） End Select Next I

（46） End Function

33．执行下面的程序，单击窗体后在窗体上显示的结果是 （47） 。 Private Sub Form_Click()

Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1=\ For I=1 To 2

Str2=UCase(Str1) Str1=Str2 & Str1 Str3=Str3 & Str1 Str1=Chr(Asc(Str1)+I) Next I Print Str3

End Sub

34. 下面的程序是采用“冒泡排序”法从键盘上输入10个整数，将10个数从小到大排序。

Private Sub Command1_Click()

31

Dim a(1 To 10) As Integer msg = \输入数：\ msgtitle = \冒泡排序\ For i = 1 To 10

a(i) = （48） Next i

For i = 10 To 2 Step - 1

For j = 1 To （49） If （50） Then

t = a(j+1): a(j+1) = a(j): a(j) = t End If Next j Next i

For i = 1 To 10 Print a(i) Next i End Sub

35．执行下面的程序，在窗体上显示的输出结果的第一行是 （51） ，第二行是 （52） 。

Option Explicit

Private Sub Form_Click()

Dim s As String, i As Integer, flag As Boolean s=\ S=LCase(s) Print s Flag=True

For I=1 to Len(s)

If Mid(s, i, 1)= \ Then flag=True ElseIf flag Then

S=Left(s, I-1) & UCase(Mid(s, i, 1)) ＆ Right(s, len(s)-i) Flag=False End If Next i Print S End Sub 36．执行下面的程序，在窗体上显示的输出结果的第一行是 （53） ，第二行是 （54） ，第三行是 （55） 。

Option Explicit

Dim a As Integer, b As Integer Private Sub Form_Click() Dim c As Integer a=1 b=3 c=5

Print fun(c)

32

Print a, b, C Print fun(c) End Sub

Private Function fun(x As Integer) As Single fun=a+b+x／2 a=a+b b=a+x x=b+a End Function

37．执行下面的程序，在窗体上显示的输出结果的第一行是 （56） ，第二行是 （57） 。

Option Explicit

Private Sub Form_Click()

Dim M As Integer, N As Integer M=1:N=2

Print M+N+Fun1(M, N) M=2：N=1

Print Fun1(M, N)+Fun1(M, N) End Sub

Private Function Fun1(X As Integer, Y As Integer) X=X+Y Y=X+3 Fun1=X+Y End Function 38．执行下面的程序，在窗体上显示的输出结果的第一行是 （58） ，第二行是 （59） ，第四行是 （60） 。

Option Explicit

Private Sub Form_Click()

Dim a(2, 2) As Integer, i As Integer, J As Integer Dim k As Integer For i=1 To 2 For j=1 To 2

a(i, j)=(I-1)*2+J Print a(i, j); Next j Print Next i Print k=(I-1)*2 For i=1 To 2 For j=1 To 2 a(i, J)=k k=k- 1 Print a(i, j); Next j Print

33

Next i End Sub

39．执行下面的程序，在窗体上显示的输出结果的第一行是 （61） ，第三行是 （62） ，Form_Click()事件过程中的第二个For-Next循环共执行了 （63） 次。

Option Explicit Option Base 1

Private Sub Form_Click()

Dim a(5) As Integer, i As Integer, J As Integer For i=1 To 5 a(i)=2*I-1 Print a(i); Next i Print

For j=1 To I-2 Call sub1(a(j), j) Print j Next j End Sub

Public Sub sub1(X As Integer, P As Integer) If x-P<=2 Then P=P+1 Else P=P+2 End If End Sub 40．下面程序的功能是：统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和。

Option Explicit

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 l0

X=Int(Rnd*90)+10 Print X;

If （64） then n2=n2+l s2=s2+X Else

（65）

S1=s1+X

End If Next i Print

Print \奇数个数=\偶数个数=\

34

End Sub

41．下面程序的功能是：单击命令按钮Command1，找出100以内的所有约数之和为一个完全平方数的正整数，并按下图中所示的格式将结果显示在图形框Picture1中。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, J As Integer

Dim F() As Integer, sum As Integer For i=3 To 100 （66） If Fac(i, F, sum) Then

Picture1.Print i; \：\ For J=1 To UBound(F)-1 Picture1. Print F(J); \ Next J

Picture1. Print F(J); \ End If Next i End Sub

Private Function Fac(ByVal K As Integer, A() As Integer, sum As Integer) As Boolean Dim N As Integer, J As Integer For N=1 To K

If （67） then J=J+1 （68） A(J)=N

Sum=sum + N End If Next N

If Sum= （69） Then Fac=True End Function

42．下面程序执行后，输出的第一行是 （70） ，第二行是 （71） ，第三行是 （72） 。

Private Sub Form_Click()

Dim a As Integer, b As Integer

35

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新初中教育2011年江苏省计算机二级VB试题库 (8)全文阅读和word下载服务。