vb十以内的加法练习程序,随机产生两个10以内的数相加,输入答案...

发布网友 发布时间：5小时前

我来回答

共4个回答

热心网友 时间：7分钟前

我要改一下
绝对可以

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Int((10 * Rnd) + 1)
b = Int((10 * Rnd) + 1)
MsgBox a, , "第一个数为"
MsgBox b, , "第二个数为"
c = InputBox("请输入你的答案")
If c = a + b Then
MsgBox "恭喜你答对了！"
End If
If c <> a + b Then
MsgBox "很遗憾，你回答错了！"
End If
End Sub

热心网友 时间：9分钟前

这题 能做，需要 hi 我

热心网友 时间：7分钟前

Module module3

Sub Main()
Dim num1, num2, sum As Integer
Dim answer As Integer '用户输入的答案
Dim rand As New Random()

num1 = rand.Next() Mod 10 '得到随机数，控制在[0,10]之间
num2 = rand.Next() Mod 10
sum = num1 + num2

Console.WriteLine("请输入您的答案：")
answer = Integer.Parse(Console.ReadLine()) '得到用户输入的答案

If (answer = sum) Then
Console.WriteLine("恭喜您，猜对了!")
Console.WriteLine("我们就是 " & num1 & " 和 " & num2)
Else
Console.WriteLine("很遗憾，猜错了,继续努力... ...")
Console.WriteLine("其实我们是 " & num1 & " 和 " & num2)
End If
End Sub

End Module

热心网友 时间：6分钟前

十以内的加法练习程序，随机产生两个10以内的数相加，输入答案判断对错。再接下来就做一个有关字符串的程序（包括文件保存、读取）。再接下来就做一个时钟的程序（包括显示、定时、秒表等）。