2008
骞存槬
VB09-1
姹熻嫃鐪侀珮绛夊鏍￠潪璁＄畻鏈轰笓涓氬鐢?/p>
璁＄畻鏈哄熀纭�鐭ヨ瘑鍜屽簲鐢ㄨ兘鍔涚瓑绾ц�冭瘯涓婃満璇曞嵎锛?/p>
2010
鏄ワ級
浜岀骇
Visual Basic
璇█
锛堣瘯鍗蜂唬鍙?/p>
VB03
锛?/p>
锛堟湰璇曞嵎瀹屾垚鏃堕棿
70
鍒嗛挓锛?/p>
銆愯�冭瘯椤荤煡銆?/p>
1
锛?/p>
鏀归敊棰樼殑鐣岄潰涓嶄綔瑕佹眰锛屼富瑕佺敤鏉ヨ皟璇曠▼搴忥紝鑻ラ鐩腑鏈夊弬鑰冪晫闈紝鍒欎粎浣滃弬鑰冿紱
2
锛?/p>
鑰冭瘯缁撴潫鍚庯紝鏂囦欢蹇呴』瀛樻斁鍦ㄦ寚瀹氫綅缃紝鍚﹀垯閫傚綋鎵ｅ垎锛涜�冭瘯鐩樹腑鑻ユ棤鎸囧畾鏂囦欢锛屽垯涓?
浜堣瘎鍒嗭紱
3
锛?/p>
绋嬪簭浠ｇ爜涔﹀啓搴斿憟閿娇褰€�?/p>
涓�銆佹敼閿欓锛?/p>
14
鍒嗭級
銆愰鐩�?/p>
鏈▼搴忕殑鍔熻兘鏄紝
鎵惧嚭鎸囧畾鏁版嵁鑼冨洿鍐呮墍鏈夊叾骞虫柟鏁颁负鍗囧簭鏁扮殑鏁存暟銆?/p>
鎵�璋撳崌搴忔暟
鏄寚浠庢渶楂樹綅鍒版渶浣庝綅鐨勬暟瀛椾緷娆￠�掑鐨勬暣鏁般�備緥濡?/p>
3589
灏辨槸涓�涓崌搴忔暟銆?/p>
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, k As Integer
For n = 20 To 180
k = n ^ 2
If sx(k) Then
List1.AddItem n & "^2=" & k
End If
Next n
If List1.ListCount = 0 Then List1.AddItem "
鏃犲崌搴忓钩鏂规暟
"
End Sub
Private Function sx(ByVal n As Integer) As Boolean
'err
鏃?/p>
ByVal
Dim num() As Integer, k As Integer, p As Integer
Dim i As Integer
Do
p = n Mod 10
k = k + 1
ReDim Preserve num(k)
num(k) = p
n = n \ 10
Loop Until n = 0
'err Until n < 0
For i = 2 To UBound(num)
If num(i) >= num(i - 1) Then Exit Function
'err Exit For
Next i
sx = True
End Function
銆愯姹傘�?/p>
1
锛?/p>
鏂板缓宸ョ▼锛岃緭鍏ヤ笂杩颁唬鐮侊紝鏀规绋嬪簭涓殑閿欒锛?/p>
2
锛?/p>
鏀归敊鏃讹紝涓嶅緱澧炲姞鎴栧垹闄よ鍙ワ紝浣嗗彲閫傚綋璋冩暣璇彞浣嶇疆锛?/p>
3
锛?/p>
灏嗙獥浣撴枃浠跺拰宸ョ▼鏂囦欢鍒嗗埆鍛藉悕涓?/p>
F1
鍜?/p>
P1
锛屽苟淇濆瓨鍒?/p>
T
鐩樼殑鏍圭洰褰曚笅銆?/p>
浜屻�佺紪绋嬮锛?/p>
26
鍒嗭級