[求教师信息管理系统c程序设计]#include#include#include#includeusing namespace std；//教师资料struct Teacher{ string num; string name; string sex; int age; string education; float wage; Teacher...+阅读
下面是源代码：Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture(＂C:\Users\Administrator\Desktop\打地鼠\picture＂ & temp & ＂.jpg＂) WindowsMediaPlayer1.URL = ＂C:\Users\Administrator\Desktop\打地鼠\Heaven's Devils.wma＂ End Sub Private Sub Label1_Click() Form2.Show Form2.num = -1 Form1.Hide WindowsMediaPlayer1.URL = ＂＂ Open ＂C:\Users\Administrator\Desktop\打地鼠\primary.dat＂ For Append As #1 '写操作 Close #1 Open ＂C:\Users\Administrator\Desktop\打地鼠\intermediate.dat＂ For Append As #2 Close #2 Open ＂C:\Users\Administrator\Desktop\打地鼠\advanced.dat＂ For Append As #3 Close #3 End Sub Private Sub Label2_Click() End End Sub Form2: Dim allnum As Integer, oknum As Integer '定义变化次数 打中次数 Public num As Integer '判别是否第一次开始游戏 Dim flags1 As Boolean '判别文件是否保存 Public flags As Boolean '判别是否播放声音 Private Sub countine_Click() pause.Enabled = True Timer1.Enabled = True countine.Enabled = False WLXZ.Enabled = True End Sub Private Sub exit_Click() Dim X As Integer Dim tt As Integer X = MsgBox（＂是否真的退出？＂， vbYesNo， ＂退出游戏框＂） If X = 6 Then tt = MsgBox（＂退出游戏之前，是否保存＂， vbYesNo， ＂保存提示＂） If tt = 6 Then If flags1 = True Then End Else If Timer1.Interval = 1000 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\primary.dat＂ For Append As #1 '写操作 Print #1, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #1 ElseIf Timer1.Interval = 500 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\intermediate.dat＂ For Append As #2 Print #2, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #2 Else Open ＂C:\Users\Administrator\Desktop\打地鼠\advanced.dat＂ For Append As #3 Print #3, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #3 End If End If End If End End If End Sub Private Sub Form_Load() Form4.Check1.Value = 1 WindowsMediaPlayer1.Controls.stop countine.Enabled = False pause.Enabled = False WLXZ.Enabled = False Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left flags1 = False flags = True End Sub Private Sub help_Click() Form3.Show End Sub Private Sub new_game_Click() num = num + 1 Dim t As Integer If (num >0) Then t = MsgBox（＂新游戏开始之前，是否保存＂， vbYesNo， ＂保存提示＂） If t = 6 Then flags1 = True If Timer1.Interval = 1000 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\primary.dat＂ For Append As #1 '写操作 Print #1, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #1 ElseIf Timer1.Interval = 500 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\intermediate.dat＂ For Append As #2 Print #2, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #2 Else Open ＂C:\Users\Administrator\Desktop\打地鼠\advanced.dat＂ For Append As #3 Print #3, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #3 End If End If End If Call Form_Load allnum = 0 '变化次数初始为0 oknum = 0 '打中次数初始为0 Timer1.Enabled = True pause.Enabled = True WLXZ.Enabled = True End Sub Private Sub options_Click() Timer1.Enabled = False Form4.Show WLXZ.Enabled = False countine.Enabled = True End Sub Private Sub pause_Click() Dim r, g, b As Integer Timer1.Enabled = False countine.Enabled = True pause.Enabled = False WLXZ.Enabled = False Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left Form5.Show
本文地址：https://www.39baobao.com/show/32_30083.html
以上内容来自互联网，请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权，请联系我们，我们会及时处理和回复，谢谢.
以下为关联文档：
关于简单VB程序设计Dim a() As Integer Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim x As Integer For i = 0 To 4 ReDim Preserve a(i) a(i) = Rnd * 100 Next i i...
