三九宝宝网宝宝教育学龄段教育

急切求助用VB编一个小学算术出题系统

01月09日 编辑 39baobao.com

[GMAT阅读出题规律]GMAT考试(Graduate Management Admission Test,研究生管理学入学考试)是由美国多所有管理学专业的管理学研究生委员会(GMAC)发起、由新泽西州普林斯顿的美国考试中心(ETS)提供的管...+阅读

我帮你多实现了一个功能,就是一共给两次机会 第一次算错之后,确认按钮变成再来,你不想要可以自行去掉 你也确实挺抠的·一分都不给·我就当玩了 Dim jieguo As Integer, shu1 As Integer, shu2 As Integer, dui As Integer, cuo As Integer Private Sub Command1_Click() Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False If Command1.Caption = "再来" Then If Val(Text1.Text) = jieguo Then Picture1.Print Label1.Caption; Text1; "√ 这么牛!" dui = dui + 1 Else Picture1.Print Label1.Caption; Text1; "(正确答案"; jieguo; ")"; "* 我靠 鄙视你!" cuo = cuo + 1 End If Command1.Enabled = False End If If Command1.Caption = "确认" Then If Val(Text1.Text) = jieguo Then Picture1.Print Label1.Caption; Text1; "√ 这么牛!" dui = dui + 1 Else Text1.Text = "" Text1.SetFocus Picture1.Print "你敢再做一遍呗!" Command1.Caption = "再来" End If End If Text1.Text = "" End Sub Private Sub Command2_Click() Picture1.Print "★★★★★★★哥给你算算多少分★★★★★★★" Picture1.Print "你一共做了"; (dui + cuo); "道题" If dui + cuo0 Then Picture1.Print "你得了"; Int(dui / (dui + cuo) * 100); "分" End If End Sub Private Sub Form_Load() Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False End Sub Private Sub Option1_Click() Command1.Caption = "确认" Command1.Enabled = True Text1.FontSize = 18 Randomize shu1 = Int(Rnd * 100 + 1) shu2 = Int(100 * Rnd + 1) jieguo = shu1 + shu2 Label1.Caption = shu1 & "+" & shu2 & "=" Label1.FontSize = 18 End Sub Private Sub Option2_Click() Command1.Caption = "确认" Command1.Enabled = True Dim t As Integer Text1.FontSize = 18 Randomize shu1 = Int(Rnd * 100 + 1) shu2 = Int(100 * Rnd + 1) If shu1

以下为关联文档:

雅思听力考试出题的三个原则替换原则在IELTS听力考试中,替换是出题者经常使用的一个原则,而且每套试题中都必然多次出现。这种替换出现在题干中的关键词和关键词组不会在原文中直接出现,而是用同义或近义...

雅思听力是怎么出题IELTS 是由英国剑桥大学考试委员会(LOCAL EXAMINATION SYNDICATE),British Council 和 Australia IDP 合办的一种国际性的英语能力综合测试。 分LISTENING, READING, WRITING,...

超前识字、学算术能造神童吗一份调查显示,3-6岁的孩子七成以上都参加过各种培训班。一句"不让孩子输在起跑线上"让众多家长围着孩子的"早教"忙活着,除常规入托入园外,在业余时间不少家长还把孩子送进各种...

渗透数学思想掌握数学方法走出题海误区以素质教育为导向的初中数学教学大纲明确指出:“初中数学的基础知识主要是初中代数、几何中的概念、法则、性质、公式、公理、定理及其内容所反映出来的数学思想和方法。”可...

自己出题自己做不亦乐乎教例] 如何让枯燥的计算练习课使学生兴趣盎然?如何让学生在课堂中真正唱主角,途径方法很多。在教学两位数除法练习课时,我采用了学生“自己出题自己做”的教学形式进行教学,收到...

大班数学课《学习8的加法》讲述算术式的含意教案活动名称:数学 学习8的加法活动目标: 1、引导幼儿学习按实物图的内容选择第三张答案图,并列出算式。 2、要求幼儿用准确的语言讲述算术式的含意。活动准备: 1、自制教学挂图。 2...

c语音编写随机给小学生出题//先上个只有加法的 int num = 0; int a = 0; int b = 0; int ret = 0; scanf("%d",&num); while(i--){ a = rand(); b = rand(); printf("%d+%d=",a,b); scanf("%d",&ret); if(re...

C语言编程小学生数学四则运算题要求可以输入所出题目数判断对错#include <stdio.h> #include <time.h> void main() { int num,mark=0,i; int num1,num2,sum,n; scanf("%d",&num); srand((unsigned) time(NULL)); for(i=0;i<num;i++) { num...

用C语言写一个小学生口算出题系统一、设计的流程: 1. 主界面设计,选择练习或测试,按ESC结束程序。 2. 题型选择界面设计,选择加、减、乘、除或混合运算,按ESC返回主界面。 3. 系统随机出题,运算数及结果均在100以...

推荐阅读
图文推荐