vb编程~~~创建一个应用程序，用Select语句计算分段函数

1-x (x<0)
2x-1 (0 x <10)
y= 3x2+10 (10x<20)
100-5x (x 20)

提示：
⑴x的数值在文本框Text1输入，转存整型变量x，在文本框Text2输出结果。
⑵按“计算”按钮，程序运行，按“退出”按钮，程序结束

举报该文章

相关建议 æ¨èäº2016-09-20

Select Case è¯å¥ç¤ºä¾

    Dim Number
    Number = 8   ' è®¾ç½®åéåå¼ã
    Select Case Number   ' å¤æ Number çå¼ã
        Case 1 To 5   ' Number çå¼å¨ 1 å° 5 ä¹é´ï¼åå«1 å 5 ã
            Debug.Print "Between 1 and 5"
        ' ä¸ä¸ä¸ª Case åå¥æ¯æ¬ç¤ºä¾ä¸å¯ä¸å¤æå¼ä¸º True çåå¥ã
        Case 6, 7, 8   ' Number çå¼å¨ 6 å° 8 ä¹é´ã
            Debug.Print "Between 6 and 8"
        Case 9 To 10   ' Number çå¼ä¸º 9 æ 10ã
        Debug.Print "Greater than 8"
        Case Else   ' å¶ä»æ°å¼ã
            Debug.Print "Not between 1 and 10"
    End Select

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/m84sv4qv.html

其他看法

第1个回答 2009-04-16

1-x (x<0)
2x-1 (0 x <10)
y= 3x2+10 (10x<20)
100-5x (x 20)
这个没有看明白，是全部是一组，还是一组中间有二个比方1-x and x<0或者其它的解法

第2个回答推荐于2018-04-04

Private Sub Command1_Click()
Dim x%, y%
x = Val(Text1.Text)
Select Case x
Case Is < 0
y = 1 - x
Case Is < 10
y = 2 * x - 1
Case Is < 20
y = 3 * x ^ 2 + 10
Case Else
y = 100 - 5 * x
End Select
Text2.Text = CStr(y)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "计算"
Command2.Caption = "退出"
End Sub

你的题目没有给出x=0的情况本回答被提问者和网友采纳

相似回答

大家正在搜