2、讀下面的程序,分析其功能,寫出運行結果。
在窗體上有一個命令按鈕,名稱為Command1。然后編寫如下程序:
Private Sub Command1_Click()
For I = 1 To 4
For J = 0 To I
Print Chr$(65 + I);
Next J
Next I
End Sub
程序運行后,如果單擊命令按鈕,則在窗體上顯示的內容是什么?
3、閱讀下面的程序,分析并寫出其功能。
Sub insert(a() As Single,ByVal x As Single)
Dim m as integer,n as integer
n=1
Do While n<20 And x>a(n)
n=n+1
Loop
For m=20-1 To n Step –1
a(m+1)=a(m)
Next m
a(n)=x
End Sub
4、分析以下程序,寫出運行結果。
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a()
For i =1 To 4
Print a(i)
Next i
End Sub
運行上面的程序,單擊命令按鈕,輸出結果是什么?
5、分析以下程序,寫出運行結果。
Sub sele()
Dim n as Integer
i=21:n=3
Do While i>n
i=i-n
Loop
Print i
End Sub
6、分析以下程序,寫出運行結果。
Sub selectPrint()
Dim a as Integer
Dim b as Integer
Dim c as Integer
a=2:b=5:c=2
If(a>=b)and(a>=c) or (b>c) Then
Print a
a=a+2
Else
Print b
EndIf
Print a;b;c
End Sub
7、分析以下程序,寫出運行結果。
Sub swap()
Dim x as Integer
Dim y as Integer
Dim z as Integer
x=1:y=2:z=0
Print x;y;z
x=x+y
x=x*z
Print x,y,z
End Sub
8、分析以下程序,寫出運行結果。
Sub selectPrint()
Dim a as Integer
Dim b as Integer
Dim c as Integer
a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a
Print a,b,c
End Sub
相關推薦:2010年9月計算機等級考試成績查詢匯總北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |