1. Private Sub Command1_Click( )
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2<8 Then y=x^3
Print “y=”;y
End Sub
2. Public Sub Swap(ByVal x As Integer, y As Integer)
Dim t As Integer
t=x: x=y: y=t
End Sub
Private Sub Command1_Click( )
Dim a As Integer ,b As Integer
a=30: b=20
Swap a ,b
Print “a=”; a ;”b=”; b
End Sub
写出程序的正确运行结果(每题5分,共10分)
1. y= 7
2. a=30 b=30
2018年全国计算机等级考试调整方案
[考试动态]2017年11月20日全国计算机等级考试计算机基础及Photoshop应用试题答案汇总(6套)
[Photoshop应用]2017年2月3日全国计算机等级考试四级数据库系统工程师试题及答案汇总(22套)
[数据库工程师]2017年2月2日全国计算机一级考试模拟试题及答案300题
[WPS Office应用]2017年1月22日2017年3月全国计算机等级考试报名时间及报名入口汇总
[考试动态]2017年1月3日