UC知道求VB程序 设计有关幼儿算术程序设计的题的源程序代码
来源：百度知道 编辑：UC知道 时间：2024/06/18 23:08:19
急求 一个VB 程序 设计有关幼儿算术程序设计的题的源程序代码
我也不知道这个是什么东西 我同学让我帮他在网上找的
懂得大侠们能不能给我发一个到我的邮箱 地址是472751853@qq.com
万分感谢
这是他们是大一毕业小学期要求的 好像是设计这么一个3到6岁的少儿算术程序 而且要稍微新颖一点的 比如算对了以后 可以有一短小音乐 活着 小画面啥的 满意的话 可追加分
我也不知道这个是什么东西 我同学让我帮他在网上找的
懂得大侠们能不能给我发一个到我的邮箱 地址是472751853@qq.com
万分感谢
这是他们是大一毕业小学期要求的 好像是设计这么一个3到6岁的少儿算术程序 而且要稍微新颖一点的 比如算对了以后 可以有一短小音乐 活着 小画面啥的 满意的话 可追加分
我刚高中毕业，没学多少，所以只能加段音乐了
很简单，不用发邮箱
一个文本框（text1）写答案
两个个标签label1写题目，label2显示是否正确
两个个按钮一个判断对错（p）一个出下一题（c）下面是代码：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public z As Integer
’以上是通用内
Private Sub c_Click()
Dim x, y, a As Integer
Randomize
a = Int(Rnd() * 2)
x = Int(Rnd() * 51)
y = Int(Rnd() * 51)
If a = 0 Then
z = x + y
Label1.Caption = Str(x) & "+" & Str(y) & "等于几"
Else
If x > y Then
z = x - y
Label1.Caption = Str(x) & "-" & Str(y) & "等于几"
Else
z = y - x
Label1.Caption = Str(y) & "-" & Str(x) & "等于几"
End If
End If
End S