用VB做随机加法运算

来源：百度知道编辑：UC知道时间：2024/09/23 11:26:54

随机产生两个二位数，并相加结果用来判断
1，恭喜答对了
2，下次努力
要求写出详细代码

把附件图片下载后,把后缀".jpg",改成".rar"后打开,解压缩出一个jiafa.exe 就是这个可以运行的程序.

Dim add1 As Long

Dim add2 As Long

Dim daduishu As Long

Dim huidashu As Long

Private Sub Command1_Click()

Dim weishu As Integer

Randomize Time

weishu1 = Combo1.Text

weishu2 = Combo2.Text

add1 = Int((((10 ^ weishu1) - 1) - (10 ^ (weishu1 - 1) - 1)) * Rnd + (10 ^ (weishu1 - 1)) - 1)

add2 = Int((((10 ^ weishu2) - 1) - (10 ^ (weishu2 - 1) - 1)) * Rnd + (10 ^ (weishu2 - 1)) - 1)

Text1.Text = add1 & "+" & add2 & "=?"