最容易考到_vb程序设计.docVIP

第1题：编程，用随机函数产生2个10～100的整数，输出最大值。 正确答案： Private Sub Command1_Click() Dim x%, y%,max% Randomize x = Int(Rnd * 91 + 10) y = Int(Rnd * 91 + 10) Max = x If y Max Then y = Max Print Max End Sub 第2题：编程，将一个三位整数倒序输出。 Private Sub Command1_Click() Dim x%, bw%, sw%, gw% x = Text1.Text bw = x \ 100 sw = x \ 10 Mod 10 \整除 Mod取余 gw = x Mod 10 x = gw * 100 + sw * 10 + bw Print x End Sub 第2题：编程，求算式1+1/2！+1/3！+1/4！+……前10项的和。 正确答案： Private Sub Command1_Click() Dim i%, s!，a! a = 1: s = 0 For i = 1 To 10 a = a / i s = s + a Next i Print 1+1/2!+1/3!+……=; s End Sub 第1题：编程，求方程x2+y2=1000的所有整数解。 正确答案： Private Sub