VB语言程序求助： 1，三数反序，输入三个整数，反序后输出。 2，一辆卡车违反了交通规则，撞人后逃逸。

Private Sub Command1_Click()
'求车号
Dim i
Dim j
Dim a
For i = 0 To 9
For j = 0 To 9
If i <> j Then
a = 0
a = i 1000 + i 100 + j 10 + j
a = Sqr(a)
If a \ 1 - a = 0 Then
Print i 1000 + i 100 + j 10 + j
Print a
End If
End If
Next j
Next i
End Sub
Private Sub Command2_Click()
N数反序
Dim a
b = InputBox("请输入多位整数")
a = 0
Do While b > 0
a = a 10 + (b Mod 10)
b = b \ 10
Loop
Print a
End Sub

以上就是关于VB语言程序求助： 1，三数反序，输入三个整数，反序后输出。 2，一辆卡车违反了交通规则，撞人后逃逸。全部的内容，包括:VB语言程序求助： 1，三数反序，输入三个整数，反序后输出。 2，一辆卡车违反了交通规则，撞人后逃逸。、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！