三九宝宝网宝宝成长宝宝手工

用VB制作考试系统

02月06日 编辑 39baobao.com

[WPS文字制作公文有什么技巧]情况1:如果公文结束于偶数页,并且此页留有放置落款表的足够空间,那么仿照“一板斧”中“插入分节符”的方法插入“连续”分节符,仿照“一板斧”中“表格”内容的方法设置落款表...+阅读

Dim a, b, c, d, e, f, g, x, y, z, s, mPrivate Sub C1_Click() Timer1.Enabled = True ct.Enabled = True pd.Enabled = True fh.Enabled = True zt.Enabled = True C1.Enabled = False jx.Enabled = True Text4.SetFocus End SubPrivate Sub ct_Click() m = m + 1 Text4.SetFocus a1: e = Int(Rnd() * 100) Mod 4 f = Int(Rnd() * 100) Mod 4 If O1.Value = True Then a = Int(Rnd() * 10) b = Int(Rnd() * 10) c = Int(Rnd() * 10) ElseIf O2.Value = True Then a = Int(Rnd() * 20) b = Int(Rnd() * 20) c = Int(Rnd() * 20) ElseIf O3.Value = True Then a = Int(Rnd() * 50) b = Int(Rnd() * 50) c = Int(Rnd() * 50) Else e = 5 f = 5 nd = MsgBox("你还没有选择题目的难易程度!", 64, "选择") End If If (b = 0 And e = 3) Or (c = 0 And f = 3) Then GoTo a1 Select Case e Case 0 Lab2.Caption = "+" Case 1 Lab2.Caption = "-" Case 2 Lab2.Caption = "*" Case 3 Lab2.Caption = "÷" End Select Select Case f Case 0 Lab3.Caption = "+" Case 1 Lab3.Caption = "-" Case 2 Lab3.Caption = "*" Case 3 Lab3.Caption = "÷" End Select Text1.Text = a Text2.Text = b Text3.Text = c If e = 0 And f = 0 Then g = a + b + c ElseIf e = 0 And f = 1 Then g = a + b - c ElseIf e = 0 And f = 2 Then g = a + (b * c) ElseIf e = 0 And f = 3 Then g = a + (Int(b / c * 100 + 0.5)) / 100 ElseIf e = 1 And f = 0 Then g = a - b + c ElseIf e = 1 And f = 1 Then g = a - b - c ElseIf e = 1 And f = 2 Then g = a - (b * c) ElseIf e = 1 And f = 3 Then g = a - (Int(b / c * 100 + 0.5)) / 100 ElseIf e = 2 And f = 0 Then g = a * b + c ElseIf e = 2 And f = 1 Then g = a * b - c ElseIf e = 2 And f = 2 Then g = a * b * c ElseIf e = 2 And f = 3 Then g = (Int(a * b / c * 100 + 0.5)) / 100 ElseIf e = 3 And f = 0 Then g = (Int(a / b * 100 + 0.5)) / 100 + c ElseIf e = 3 And f = 1 Then g = (Int(a / b * 100 + 0.5)) / 100 - c ElseIf e = 3 And f = 2 Then g = (Int(a / b * 100 + 0.5)) / 100 * c ElseIf e = 3 And f = 3 Then g = (Int(a / b / c * 100 + 0.5)) / 100 End If End Sub Private Sub fh_Click() If jx.Enabled = False Then hunhe.Hide xuanze.Show C1.Enabled = True Else jxa = MsgBox("你还没有结束练习!", 48, "警告") End If End SubPrivate Sub Form_Load() Lab1.Caption = "0时00分00秒" s = 0 d = 0 m = 0 ct.Enabled = False pd.Enabled = False jx.Enabled = False zt.Enabled = False End SubPrivate Sub jx_Click() jx1 = MsgBox("你真的要结束练习吗?", 36, "提示") If jx1 = vbYes Then jg = MsgBox("你的得分是" & d & "分;你一共做了" & m & "个题,做对了" & d / 10 & "个;你的练习时间是" & Lab1.Caption & "。

", 64, "最后成绩") Timer1.Enabled = False Lab1.Caption = "0时00分00秒" jx.Enabled = False zt.Enabled = False C1.Enabled = False ct.Enabled = False pd.Enabled = False d = 0 m = 0 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Lab2.Caption = "" Lab3.Caption = "" Text4.SetFocus Else Cancel = 1 End If End SubPrivate Sub pd_Click() If Text1.Text = "" Then Label7.Caption = "你还没有抽题,请抽题!" ElseIf Text4.Text = "" Then Label7.Caption = "你还没有做题,请做题!" Text4.SetFocus ElseIf Text4.Text = g Then Label7.Caption = "恭喜你,做对了,加10分!" d = d + 10 Lab4.Caption = d Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Lab2.Caption = "" Lab3.Caption = "" Else Label7.Caption = "你做错了,请重新做题!" Text4.Text = "" Text4.SetFocus End If End SubPrivate Sub Timer1_Timer() s = s + 1 x = s Mod 60 y = (Int(s / 60)) Mod 60 z = Int(Int(s / 60) / 60) If x9 Then Lab1.Caption = z & "时" & y & "分0" & x & "秒" ElseIf x >9 And y

以下为关联文档:

易拉罐手工制作工具利用易拉罐制作精美金属画,它是销路不错的手工艺品。 一、原材料和制作工具:各种易拉罐,笔、尺子、复写纸、厚约3厘米的像胶垫;小、中、大号剪刀和刻刀,彩色水笔、水彩或油画颜料...

易拉罐手工制作的草图!给你介绍两种做法,图可看参考资料。 一、立轴式风车 1.把易拉罐竖向划分八等份,用快刀沿线切开成条状,并在切口上下两端再横切一小口,横切的小口不要连通并要错开位置,以免扭曲叶...

如何DIY手工制作飞机方法图解用普通的泡沫块做。 1.找个简单的飞机图片,或者在大脑中勾画一架飞机,最终的效果是在你的面前有个飞机的大致形状。 2.将泡沫(包装用的,比如包电脑,包电视机等的泡沫)割出一块完整...

第一次做手工飞机有哪些制作方法取一张长方形纸,将长方形纸沿其中的一条中线对折,使两条长边重合,中间压出折痕,然后打开。将长方形一条宽上的两个直角分别向同侧折叠,使这两个直角的一条直角边(这两条直角边也就...

如何DIY小制作飞机方法图解用普通的泡沫块做。 1.找个简单的飞机图片,或者在大脑中勾画一架飞机,最终的效果是在你的面前有个飞机的大致形状。 2.将泡沫(包装用的,比如包电脑,包电视机等的泡沫)割出一块完整...

如何DIY废品制作儿童衣服方法图解简单有趣的纸帽子,不仅可以作为一件diy工艺品,还能在家庭装修,扫除等工作上为你遮尘挡土。这么实用的折纸,还不赶快来学习一下! 工具/原料 一张长方形的纸 方法/步骤 准备一张长...

如何DIY制作5岁小女孩的衣服方法图解旧衣服DIY成宝宝衫 生完宝宝之后,小桃的身形足足“长大”了几个码。趁着在家休假的时间,她从衣橱里整理出一堆衣服,虽然已经穿不下了,但丢掉又觉得可惜。灵机一动之下,她想到了将...

如何DIY芭比娃娃衣服简单制作方法图解1、准备两种花案的布,分别是连衣裙的上身和连衣裙的下身,细的绣针,同颜色的绣线,娃娃的大小不同需要准备的布料多少不同,这个需要根据娃娃的大小酌情增减。 2、剪两块相同的布片...

如何手工制作中国结编中国结之平结 讲解:将两根绳对折,像这样长绳放在短绳下面,压住。 将上面的这根绳从下面绕过来,穿进这个圈,拉紧。 再把右边这根绳绕一个圈放在下面。将之前左边的那根绳从下面...

推荐阅读
图文推荐