vb设计四则运算练习程序 这段代码有什么问题吗？为什么我每次判断出来都是“错了”？_百度知道
vb设计四则运算练习程序 这段代码有什么问题吗？为什么我每次判断出来都是“错了”？
Text2 = &quot, vbDefaultButton1 + vbApplicationModal + vbYesNo + /zhidao/pic/item/dcdaded258ccbf6c814d5a<img class="ikqb_img" src="http. &nbsp,结果& &nbsp, tseEnd SubPrivate Sub Command4_Click()Text1 = &k = MsgBox(&;对了&quot.Text = 0 Then&nbsp!a = Int(Rnd * 100) + 100b = Int(Rnd * 100) + 100i = Int(Rnd * 4) + 1Text1 = aText2 = bts = ts + 1Select Case i&)&nbsp!;Case 4&Print kElse&*&Text3 = & j = && Text2, d!;)& End If&&quot://e. c = a / b& & & &/zhidao/wh%3D600%2C800/sign=3a8cbdd59d510fbe903e4ad/dcdaded258ccbf6c814d5a.SetFocus&nbsp，错题数;.jpg" />随机出题;Case 1&错了& j = &quot!; & c = a - b& & &-&quot, & & c = a * b&Case Else&Text4 = &quot.jpg" esrc="/&分母为零&quot, & &nbsp://e; j = &quot.&/zhidao/wh%3D450%2C600/sign=9ee61f6fcb95d143da23ec/dcdaded258ccbf6c814d5a;&&&&nbsp，统计做题数; &nbsp, &k = MsgBox(&Print kEnd IfP j = &quot. c = a + b& & & & &nbsp.Case 2&nbsp.SetFocusEnd SubPrivate Sub Command3_Click()d = Val(Text4)If d = c Then& &nbsp, &tsr = tsr + 1&nbsp!; &结果&quot，对题数Private Sub Command1_Click()RandomizeDim j As StringDim i%; & &nbsp, MsgBox & & & &+& &nbsp, vbAbortRetryIgnore + vbQuestion + vbDefaultButton1 + vbApplicationM & & & Else&nbsp.hiphotos
提问者采纳
;分母为零&quot, tseEnd SubPrivate Sub Command4_Click()Text1 = &&
Text2;结果&quot.SetFocusEnd SubPrivate Sub Command3_Click()d = Val(Text4)If d = c Then
k = MsgBox(&;&quot, &quot!a = Int(Rnd * 100) + 100b = Int(Rnd * 100) + 100i = Int(Rnd * 4) + 1Text1 = aText2 = bts = ts + 1Select Case i Case 1
j = &+&quot, vbDefaultButton1 + vbApplicationModal + vbYesNo + vbE&quot, b, vbDefaultButton1 + vbApplicationModal + vbYesNo + vbExclamation, &quot!;错了&-&
c = a + b Case 2
j = &&结果&quot, d.SetFocus
c = a /)Private Sub Command1_Click()中C的变量属于局部变量 在Private Sub Command3_Click()不能使用 你可以把c的变量定义成全局变量复制一下语句Dim c.Text = 0 Then
MsgBox &结果&quot!Private Sub Command1_Click()RandomizeDim j As StringDim i%, k因为在Private Sub Command3_Click()过程中的C变量没有定义 所以一直是空值 所以一直执行 k = MsgBox(&
c = a - b Case 3
j = &对了& b
End If Case Else
EndEnd SelectText3 = jEnd SubPrivate Sub Command2_Click()Text4,*&
If Text2;/Text3 = &quot!!;)
tse = tse + 1
Print kEnd IfPText4 = &
c = a * b Case 4
j = &quot,)
tsr = tsr + 1
Print kElse
k = MsgBox(&;&quot, vbAbortRetryIgnore + vbQuestion + vbDefaultButton1 + vbApplicationModal, &Text2 = &错了&quot
提问者评价
其他类似问题
四则运算的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您所在的位置： &
VB.NET短路判断问题解析
VB.NET短路判断问题解析
VB.NET短路判断的一些错误解决方法将会在这篇文章中给出。希望对又需要的朋友可以通过我们介绍的相关内容充分了解其中的概念。
我们在做短路判断的时候，出现了一些错误。在这里我们就来进行一个VB.NET短路判断的错误解决方法，希望对大家有所帮助。在用VB6制作程序中书写IF文的时候，一般都要把返回布尔函数的判断分成几块来写。因为VB6不支持短路的判断结果。
可是到了.NET的时代，C#与VB.NET都是基于.NET Framework的，于是就想当然的以为VB.NET会很聪明的改变了AND的式样与C#中的&&等同了（其他的逻辑也一样）。
今天刚好有机会评价一位同仁的程序，我的TRACE总是在不该出现的时候出现，经过测试得到了VB.NET短路判断的AND与VB6的AND相同的结论。
VB6的测试程序: Option Explicit
Private&Sub&Command1_Click() &
If&PA&And&PB&Then &
Debug.Print&&TRUE& &
Debug.Print&&FALSE& &
Private&Function&PA()&As&Boolean &
Debug.Print&&PA& &
PA&=&False&
End&Function &
Private&Function&PB()&As&Boolean &
Debug.Print&&PB& &
PB&=&True&
End&Function&
执行结果：
PA &PB &FALSE&
C#的测试程序：
using&S &namespace&DefaultNamespace &{ &class&MainClass &{ &public&static&void&Main(string[]&args) &{ &if&(&PA()&&&&PB()&)& &{ &Console.WriteLine(&TRUE&); &} &else &{ &Console.WriteLine(&FALSE&); &} &} &public&static&bool&PA() &{ &Console.WriteLine(&PA&); &return& &} &public&static&bool&PB() &{ &Console.WriteLine(&PB&); &return& &} &} &}&
执行结果：
PA &FALSE&
VB.NET短路判断的执行结果：
Imports&System &Module&MainModule&Main &Sub&Main()Sub&Main() &If&PA&And&PB&Then &Console.WriteLine(&TRUE&) &Else &Console.WriteLine(&FALSE&) &End&If &End&Sub &Function&PA()Function&PA()&As&Boolean &Console.WriteLine(&PA&) &PA&=&True&End&Function &Function&PB()Function&PB()&As&Boolean &Console.WriteLine(&PB&) &PB&=&True&End&Function &End&Module&
执行结果：
PA &PB &FALSE&
这样很明显就可以得到结论了。
于是就只好马上看看VB.NET的AND运算的帮助，证实了我的想法，并且帮助文件上还给了这样一个词的参照，AndAlso。
原来如此......
在VB.NET短路判断中与C#的&&等价的是AndAlso！
以前虽然有机会用一些C# To VB.NET的工具，可是就是没有注意到这点。实在是够失败。
另： 还有一个新的关键字，OrElse。【责任编辑： TEL：（010）】
关于的更多文章
VB.NET（Visual Basic.NET）是基于微软公司推出的新一代编程语言
本次的专刊为大家提供了Oracle最新推出的Java SE 8详细的开发教程，从解读到探究Java 8最新
MongoDB的转变也正是10gen的转变，Dwight Merriman在
在过去的近十年的时间里，面向对象编程大行其道。以至
很久很久以前，冬天爱上了夏天，可是他们始终不能相见
随着互联网的迅速发展，几乎所有工具软件和程序语言都支持的正则表达式也变得越来越强大和易于使用。本书是讲解正则表达式的经典
51CTO旗下网站11:40:35【 转载互联网】 作者： &&|&责编：李强
&&& &为了解决用户可能碰到关于"请问如何用VB制作一个简单的考试系统，有单选题，多选题，判断题，问答题，需用数据库"相关的问题，突袭网经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"请问如何用VB制作一个简单的考试系统，有单选题，多选题，判断题，问答题，需用数据库"相关的详细问题如下:RT,我想知道:请问如何用VB制作一个简单的考试系统，有单选题，多选题，判断题，问答题，需用数据库===========突袭网收集的解决方案如下===========
解决方案1： 网上有好多例子，去CSDN论坛里可以下载！
================可能对您有帮助================
问：有一个数据库名称为“计算机网络试题” 其中有一张表名为“选择题” 其中字...答： 软件数据库有87个试题，系统随机选取20个试题，在答题界面，点击Option1控件就可以实现答题操作，答题20个以后，【交卷...===========================================问：有一个数据库名称为“计算机网络试题” 其中有一张表名为“选择题” 其中字...答：以前装过一个，过了二级就卸了。 你在天空或华军下一个VB6精简版的都可以啊！ ===========================================问：有一个数据库名称为“计算机网络试题” 其中有一张表名为“选择题” 其中字...答：什么题？ 选择题 判断题 多选题 填空题？都可以自动记分，只有应用题不能自动打分===========================================问：有一个数据库名称为“计算机网络试题” 其中有一张表名为“选择题” 其中字...答：VB制作简单的一个模拟考试系统
11:32 爱她一生001 | 分类:娱乐休闲 我来帮他解答 分享到: 知道日报 往期回顾 登录 还没有百度账号?立即注册 ...===========================================问：就是判断题每答一题，下面的已答过的题号按钮就变色，而题目会自动跳到...答：不是很理解您的意思，你的每一题的按钮也是按钮控件做的吗 但是不管怎样 你应该有一个指向每一题的索引，比如说CurIndex,那么不管你是按下面的数字还是上面的上一题和下一题，CurIndex=CurIndex+1 或减1，在每个数字按钮用command.caption， 按...===========================================问：就是判断题每答一题，下面的已答过的题号按钮就变色，而题目会自动跳到...答：我是抢劫的，把分给我吧 首先建立一个command1 然后剪切复制 系统提示说已经有一个COMMAND1 是否要建立控件数组？ 你点击是 这样重复9次 分别把caption该成0到9 然后建立command2 方法同上,caption为 +-*/ 然后是 command3 caption是= 然后输入...===========================================问：用vb做一个简单的学生信息管理系统，不用连接数据库，怎么实现在程序运...答：可以事先大牛股以一个结构体(VB 中是Type)，比如说： Type studentInfo student as string ‘学生姓名 stuCode as string'学号 …… End Type 然后建立一个student的数组，这样就可以操作数据了 结合界面，将文本框和表格控件结合，便可以修改了===========================================问：第一个界面有用户名和密码进入下一个界面，用timer控件做一个滚动的“欢...答：可以依靠百度Hi通知我有时间可以解决你的问题同样的要求也可以通知我 ES:\\FBBAFEC881D73===========================================问：只要界面和系统附加计算器的一样 只要做出一个加法运算就行 运用的是COM...答：Dim a As Double, b As Double Dim c As String Private Sub Command10_Click() Text2.Text = Text2.Text & "2" End Sub Private Sub Command11_Click() Text2.Text = Text2.Text & "3" End Sub Private Sub Command12_Click() a = Text2.Text T...===========================================以前装过一个,过了二级就卸了。 你在天空或华军下一个VB6精简版的都可以啊!=========================================== 什么题? 选择题 判断题 多选题 填空题?都可以自动记分,只有应用题不能自动打分===========================================学习VB,最好先打好基础:(1)了解VB的操作过程,如控件如何使用,代码如何输入,如何生成或保存工程文件等问题;(2)了解相关的函数。基础就是如此,不懂的可输入相关词汇上网查...===========================================Hi,我来了。这个很简单的,现在没时间了,今晚再来写代码给你吧。&===========================================直接上代码,把下面代码粘在新建的vb控制台运行就可以了Module Module1
Console.Read()
&&& End Sub
&&& '定义一个计算的...===========================================Control 6.0控件(没用的话到部件里调出来),放一个timer。窗体代码如下:
Dim timelist()
Private Sub Form_Initialize()
ReDim timelist(4)
&#39;以两节课为例,即有四个时间点...===========================================
出卷时挑出来要的单选题,用单选框控件和文本框控件数组配合滚动条就能做出试卷。
提交试卷时保存下单选框的选项,再一一比对答案给出得分。原理很简单。
如果要...===========================================参考文章:用Excel建立模拟考试系统(上) ,用Excel建立模拟考试系统(中)
8.评分和记录保存
右击"评分"按钮,选择"指定宏",输入宏名"评分",单击"新建"按钮,编辑如下代码:
...===========================================这就是个普通的管理系统 你网上找找 类似的系统 比如 考试系统 等等 然后修改修改或者你自己做一个 这些都是基本的asp技术===========================================制作的话,难度不会太大,因为VB和数据库的连接是最简单的,只要把数据库建好把链接解... ,如果有更高级要求的话就略学SQL,应该能把这个系统做的很成功了。===========================================
12345678910大一VB程序设计 题目求 大神帮忙_百度知道
大一VB程序设计 题目求 大神帮忙
提示.hiphotos、isnumeric()，应从体验者和设计者的角度分别考虑很多.;语句块end&nbsp。<img class="ikqb_img" src="http，单击“计算判断”可提示结果对错等信息。问题2，默认回车即进行“计算判断”。提示，该随机题板的应用功能基本设计完整：为什么设计中会有如此的功能考虑。请按下列步骤逐一完善题板功能.baidu：为什么设计中会有如此的功能考虑；如你觉得设计的题板功能不甚完善：&nbsp：控件textbox输入的内容默认为字符串，且默认输入位置（即焦点）均在算式结果处.com/zhidao/wh%3D600%2C800/sign=067daa178ad4b31cf0699cbdb7e60b47/d788d43f8e567f0ff41bd5ad6e3930;语句块case&nbsp：可使用多分支判断语句如下，应有一个控件提示计算结果对错，随机生成算式的两个计算数;-&quot，并不允许自行修改算式？除能“计算判断”，一个算式连接还必须有两个label显示运算符和等号，可随机生成两个1-2位正整数的算式；到此为止；算式结果不允许输入非数值，单击“计算判断”实现计算结果的对错判断并显示.baidu。提示，实现完全每次运行均生成随机数据。操作步骤，如rnd()！注.setfocus即为设置当前焦点在textbox中.hiphotos。提示：为控件设置焦点如select对于减法算式。提示://e，了解后测型循环的使用：如果使用控件optionbutton来切换加减法.value=true代表该单选项被选定？；“计算判断”后除能提示结果对错外，此时不仅算式中运算符要改变.captioncase&nbsp，且算式结果应不允许“计算判断”后再提交判断，如要体验性更好、窗体及代码设计给予评语或评分：自动重新生成“大数-小数”的算式可使用do；通过自动生成“大数-小数”的算式；单击“再出一题”；rnd()虽然可随机生成数据，可为各commandbutton添加快捷键；一个应用的功能逐步完善的步骤；算式默认为加法运算，就应该设置一个按钮“清空记录”用以清除已有对错的累计次数.loop循环;&quot具体要求://e，还有“给出提示”的功能即显示算式的答案：题板最初应有三个控件分别显示两个随机数和接收用户结果的输入
提问者采纳
SetFocusEnd SubPrivate Sub Command2_Click()Randomize (Time())If Label1.Value = True ThenMsgBox a &amp！"ElseCommand2; "=" &amp.Enabled = TrueText1.Caption = "再出一题(ALT+&amp.Caption = "再出一题(ALT+& Str(a - b)End IfEnd IfText3.Enabled = TrueText2.Enabled = TrueText2.Enabled = Trues = s + 1Label4.Caption = "-" ThenDoa = Rnd(Time()) * 99b = Rnd(Time()) * 99Loop While a & s &amp, b As I "道题目.Value = True ThenLabel1！"End IfEnd IfEnd SelectText3.Text = ""Text3Dim a As I Str(a + b)ElseIf Option2.Enabled = FalseEnd IfText1; "-" & bElseIf Label1.Text) = False ThenMsgBox "答案输入出错; b &amp.CaptionCase "+".Text = Str(b)If IsNumeric(Text1.Text) ThenMsgBox "正确.Caption = "+"End IfEnd SubPrivate Sub Option2_Click()If Option2.Text) = False ThenMsgBox "答案输入出错; s &amp！"End IfEnd IfCase "-"If IsNumeric(Text3;Q)"Command2.Value = Trues = 0End SubPrivate Sub Option1_Click()If Option1:If IsNumeric(Text3.Text) ThenMsgBox "正确.Enabled = FalseText2.Text = ""End SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Form_Load()Option1！"ElseMsgBox "错误.Text) = False Or IsNumeric(Text2.Value = True ThenLabel1！"ElseMsgBox "错误.Caption = "+" Thena = Rnd(Time()) * 99b = Rnd(Time()) * 99End IfEnd IfText1.Text = Str(a)Text2; b &amp.Enabled = TrueText1.Text) = False ThenMsgBox "生成题目出错.Caption = "已答对" & "+" &amp.SetFocusEnd SubPrivate Sub Command4_Click()s = 0Text1.Text = ""Text2.Enabled = Trues = s + 1Label4.Caption = "已答对" &amp.Value = True ThenMsgBox a &amp！"Command2.SetFocusEnd SubPrivate Sub Command3_Click()Select Case Label1！"ElseIf (a - b) = Val(Text3;Q)"Command2！"Command2; "=" & "道题目.Enabled = FalseText3！"ElseIf (a + b) = Val(Text3, t As Integer, s As IntegerPrivate Sub Command1_Click()If Option1
提问者评价
其他类似问题
vb程序设计的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb判断多个数真假问题_百度知道
vb判断多个数真假问题
请问该怎么编写我有四个数需要判断，在其中有一个数为真时执行一段代码，全为真时执行一段代码，有三个数为真时执行一段代码，有两个数为真时执行一段代码？用Xor行吗
提问者采纳
为题目只提到为真的个数，没有要求是哪一个为真，如果进行组合的话就太复杂了。可以考虑计数的办法
提问者评价
原来是这样，感谢！
其他类似问题
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁