我不需要答案,而只是在何处以及使用哪种循环的建议或技巧。 如果用户在numLegal/LettercopyLegal/Letter输入非数字值,则使用该循环。 它将要求重新输入价值。 这也是我的第一篇文章,所以如果我做错了,请原谅我。

我正在考虑在转换用户输入后放置While循环。

    Dim numLetter, numLegal, copyLetter, copyLegal As Integer
    Const legalRate As Decimal = 0.06D, letterRate As Decimal = 0.05D, colorcopyRate As  Decimal = 0.49D, bindingRate As Decimal = 1.25D
    Dim colorcopy, binding, bistotal, total As Decimal

    'convert
    numLegal = CInt(numPagesLegalText.Text)
    numLetter = CInt(numPagesLetterText.Text)
    copyLegal = CInt(numCopiesLegalText.Text)
    copyLetter = CInt(numCopiesLetterText.Text)

    'calculate color copy
    If colorRadiobutton.Checked Then
        colorcopy = (numLegal + numLetter) * colorcopyRate
        colorcopyLabel.Text = colorcopy.ToString("c2")
    Else
        colorcopyLabel.Text = "$0.00"
    End If
    'binding button
    If bindingRadiobutton.Checked Then
        Dim numbinding As Integer = CInt(InputBox("How many sets need to be bound?"))
        binding += bindingRate * numbinding
        bindingLabel.Text = (bindingRate * numbinding).ToString("c2")
    Else
        bindingLabel.Text = "$0.00"
    End If
    'buisness cards
    If buiscardsRadiobutton.Checked = True Then

        Const rate100 As Decimal = 65D
        Const rate150 As Decimal = 55D
        Const rate200 As Decimal = 45D

        Dim buisnesscards As Integer = CInt(InputBox("How many buisness cards are needed?"))

        If buisnesscards >= 100 AndAlso buisnesscards <= 149 Then
            buisnesscardLabel.Text = rate100.ToString("c2")
            bistotal = rate100 + total
        End If
        If buisnesscards >= 150 AndAlso buisnesscards <= 200 Then
            buisnesscardLabel.Text = rate150.ToString("c2")
            bistotal = rate150 + total
        End If
        If buisnesscards > 200 Then
            buisnesscardLabel.Text = rate200.ToString("c2")
            bistotal = rate200 + total
        End If
    Else
        buisnesscardLabel.Text = "$0.00"
    End If
    total = ((numLegal * copyLegal) * legalRate) + ((numLetter * copyLetter) * letterRate) + colorcopy + binding + bistotal

    'display

    totalpriceLabel.Text = total.ToString("c2")
    copyLabel.Text = ((numLegal * copyLegal) + (numLetter * copyLetter)).ToString

  ask by Scott translate from so

本文未有回复,本站智能推荐:

3回复

创建错误检查

我正在使用Visual Studio 2010上的VISUAL BASIC在我的一个班级中为一个高尔夫程序编写代码,并且试图创建一个循环,在该循环中我输入信息,如果该信息不是数字的,则不在一定的数字范围内,而不是空白字符,它将返回一个错误消息框,允许我修复程序,但是当前,如果我输入了错误的信息,
1回复

使用if语句错误检查dr的值

我的数据库(访问)中有一个字段,其中包含我需要在显示时更改的值。 例如,如果从数据库接收到的初始值为“ D”,那么我需要将其更改为“已销毁”。 我曾尝试使用各种if语句,但由于缺乏编程知识而无法前进。 Option Strict不允许=并建议Is。 我想也许我应该看的是一个switc
1回复

Excel范围使用问题(单元错误检查)

我对每个单元格都有以下错误:“此单元格中的数字被格式化为文本或前面有撇号”要复制错误:我必须将来自Web服务的结果存储为字符串数组:示例:(3由3阵列) $ 402,568.03 26.2%30,052 $ 107,719.59 7.0%55,176 $ 81,370.35 5
1回复

VB.NET需要使用MessageBox进行错误检查的指南

可以说我有一个包含100个文本框,组合框和其他控件的表单,我想检查是否有任何控件为空。 当我单击“确定”按钮时,我希望消息框显示错误列表,例如Textbox1为空,Textbox30为空等。 我可以通过执行繁琐的方法来实现此目的,在该方法中,我检查了textbox1和messagebox
2回复

表单上错误检查控件的最佳实践

因此,我有一个带有各种不同控件(组合框,文本框,列表框等)的表单。 我的第一个想法是创建一个If,Else,End If语句。 好吧,尽管这行得通,但它也可能变得很长,具体取决于控件和组合的数量。 验证可能包括与WinForms有关的列表框是否已填充,复选框是否已选中等。 有
1回复

如何在Visual Basic中检查单个组件。 错误检查

在文本框中,我只希望0和1的3个数字组合为011,110,111,001,等等。如何编写检查单个组件(从三个数字中)为0或1的值,并指定此值以检查错误? 如果可能,我希望有一个if语句。 例如,如果数字为015,则将显示此消息。 MsgBox(“请在文本框中插入0,1的组合。”)
2回复

在Linq中是否有“Include”版本的编译时错误检查?

在Linq中是否有“Include”版本的编译时错误检查? 我有这个代码 是否有这个“Include”方法的版本,启用了编译时错误检查,因为我有很多关系,有时我需要更改它们的名称,所以如果有一个版本的编译时错误检查将真的有用。 如果有“包含”方法的重载,编译时错误检查,请有人
1回复

如何在Visual Basics中隔离小数点后的数字以进行错误检查

我正在制作一个带有输入数字为(.5)的文本框的程序。 如果用户输入0.0,0.5,1.0,1.5等,则可以。 但如果他/她应该输入2.4,3.6等,我必须产生错误信息。 我应该在与小数点后面的数字相关的If语句中加入什么。 我真的很感激帮助。 谢谢!
1回复

VB.Net错误检查列表中的字典是否包含字符串

我正在创建一个应用程序,在其中将不同的库,书籍和非书籍媒体存储在字典中,并显示在列表框中。 用户可以为这些元素中的任何一个添加和删除其他字典。 我有一个“当前库中的书籍”和“当前库中的非书籍媒体”的列表框,它们将显示链接到该列表框中突出显示的特定库的媒体。 用户可以自由地在库中添加和删
1回复

如何在Visual Studio 2017中使用VB代码满足条件之前循环循环文件检查?

因此,我试图循环进行文件检查,直到找到1个文件,并且创建该文件的文件消失了。 我一直在尝试重写,并一直在尝试找到有效的设置,但找不到任何这是我当前拥有的代码 每当我启动应用程序运行此代码时,该应用程序就会停止响应,所以我做错了什么还是缺少了什么?