1、 Form3.Show() Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form4.Show() Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Form5.Show() Private Sub Button5_Click(ByVal sender As Sy
2、stem.Object, ByVal e As System.EventArgs) Handles Button5.Click Form6.Show()End ClassPublic Class Form2 Public a As Integer, c As Integer, b As String, d As Integer a = Int(100 * Rnd() c = Int(100 * Rnd() d = (a + c) TextBox1.Text = Val(a) TextBox3.Text = Val(c) TextBox5.Text = If Val(TextBox5.Text)
3、 = Val(d) Then Label1.Text = 回答正确,继续加油! Else不正确,再想想?加油! End If答案是 & Val(d) & ,你答对了么? Form1.Show() Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.ClickPublic Class Form6 Public num1, num2, k As Integer Public op As String Public n, answer
4、, score, yes, no, c As Double num1和num2是产生的两个随机数,n为产生的题目数目,yes和no为答对和答对和答错的题目数,score为分数op为运算符 num1 = Int(Rnd() * 101) num2 = Int(Rnd() * 101) op = Int(Rnd() * 4) Select Case op Case 0 TextBox2.Text = + answer = num1 + num2 Case 1- answer = num1 - num2 Case 2* answer = num1 * num2 Case 3/ If num2 = 0
5、 Then Do While num2 = 0 Loop c = num1 / num2 answer = Int(100 * (c + 0.005) / 100 End Select TextBox1.Text = num1 TextBox3.Text = num2 TextBox4.Text = = yes = 0 no = 0 n = yes + no k = n + 1当前第 k &道题Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3
6、.Click If Val(TextBox5.Text) = answer Then yes = yes + 1 RichTextBox1.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox5.Text &答案正确,继续努力! no = no + 1 RichTextBox1.Text = 不正确,继续努力!正确答案是 TextBox1.Text & answer score = Int(yes / n + 0.005) * 100) Private Sub Button4_Click(ByVal sender As S
7、ystem.Object, ByVal e As System.EventArgs) MsgBox(n &道题中共答对了 yes &道题,得分为 score)程序行界面部分截图:功能介绍:本四则运算软件可以自由选择加法、减法、乘法、除法运算以及混合测试,适合不同程度的小学生。在除四则运算外的部分,可以进行随机出题,并能查看提示,检查对错,直接返回主界面。在四则运算部分,可以计算当前为第几道题,提交试卷后将会弹出对话框给出成绩。并且,当答案输入为字符时,会认为该道题答案是错误的。二、倒计时器制作一个倒计时器,输入倒计时时间后,显示剩余时间,时间到后有提示音和提示画面。支持倒计时的时间较宽,并且可
8、以使用空格控制开始和停止。Microsoft Visual Basic 6.0 中文版利用timer控件、button控件、table以及textbox控件来实现程序。源代码Dim h As Integer, m As Integer, s As IntegerPrivate Sub Command1_Click()If Command2.Enabled = False Then h = Int(Text1.Text) m = Int(Text2.Text) s = Int(Text3.Text) Command1.Caption = 停止 Command2.Enabled = True Ti
9、mer1.Enabled = TrueElse开始 Timer1.Enabled = False h = 0 m = 0 s = 0Command2.Enabled = FalseLabel4.Caption = End IfEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = True Then Command2.Caption = 继续暂停Private Sub Command3_Click() Unload MePrivate Sub Form_Load() Command2.Enabled = False Command3.Cap
10、tion = 退出 Text1.Text = 0 Text2.Text = Text3.Text = Frame1.Caption = 时间设置 Form1.Caption = 倒计时器 Label4.Caption = Label5.Caption = Label6.Caption = 当前时间 Label7.Caption = 倒计时: WindowsMediaPlayer1.Controls.stop Private Sub Timer1_Timer() Label5.Caption = Time If Command1.Caption = Then s = s - 1 Label4.C
11、aption = Str(h) + : + Str(m) + + Str(s) If s = -1 And m 0 Then m = m - 1 s = 59 If m = 0 And h h = h - 1 m = 59 If h = 0 And m = 0 And s = 0 Then Command1.Enabled = True倒计时完成 WindowsMediaPlayer1.Controls.play MsgBox (倒计时完成)程序主要运行界面截图本软件可以进行较宽时间段内的倒计时,倒计时之中可以停止,可以重新计时且有声音提示。三、动画以每位同学自己为原型设计一组读书动画,时间不少于20秒,动作不重复,有故事情节,有背景音乐和与动作相符的配音。使用软件为:Adobe Flash CS4 Professional分图层创作,主要利用刷子绘图工具。主要截图:动画介绍:在某一天,我读书途中遇到了问题。百思而不得其解,十分烦闷。但是突然,灵光一闪,我找到了答案,坐下来继续读书,翻页。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1