我有写好的,还支持多位数 乘除法、小数等功能,合适初一以下的出题。
还配有答案可选。
http://hi.baidu.com/xjnzhidao/blog/item/2495fdc2fa328891c81768c7.html
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Int(Rnd * 101 + 1)
b = Int(Rnd * 101 + 1)
Print a; "+"; b; "="
End Sub
你试试 应该可以了 vb6.0的环境