怎样在VB中编一个分段函数

大学计算机课程，怎样在vb中编一个分段函数，要非常详细，可操作性.....非常感谢
函数是y=x^2+1 x<0
y=x^2-1 x>=0
要求用单分支或双分支

举报该文章

相关建议推荐于2017-09-13

Private Sub Form_Activate()
Dim x, y As Long '不知道x,y能否取float型的先看整形的
x = InputBox("请输入一个x的值，取值范围为-1000，+1000")
If x < 0 Then
y = x ^ 2 + 1
ElseIf x >= 0 Then
y = x ^ 2 - 1
End If
单分支和双分支区别在于 “ ElseIf x >= 0 Then” 换成else 就是单分支的
注意下x和y的取值范围因为x过大 y的值有可能越界
希望对你有帮助
Print "y=" & y
End Sub

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

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

其他看法

第1个回答 2015-10-01

在窗体上放一个命令按钮，将代码复制到窗体里，程序运行单击一次命令按钮可输入一次n的值

代码如下：

Private Sub Command1_Click()

Dim n, y As Single

n = InputBox(" 请输入N的值")

Select Case n

Case Is < 0

y = 2 * n + 5

Case 0

y = 0

Case Is > 0

y = 3 * n - 1

End Select

MsgBox "Y=" & y

End Sub

第2个回答 2012-04-17

Private Sub Command1_Click()
Dim x As Long, y As Long
x = Val(Text1.Text)
If x < 0 Then
y = x ^ 2 + 1
Else
y = x ^ 2 - 1
End If
Text2.Text = Str(y)
End Sub

excel中如何用VB编程分段函数
excel表打开，按“alt”+“f11”进入vba编辑状态，点击“工程资源管理器”图标，在“工程资源管理器”窗体内-->鼠标右键-->“插入”->“模块”；出现“模块1”，点击“属性窗口”图标对“模块1”进行命名；双击命名后的模块名称，在右边的“窗体”内就可以编辑vba代码了。

怎么用VB编码计算分段函数
} 该程序的分段函数如下： f(x)=3x+2 (0<x<10) f(x)=1 (x=0) f(x) = x*x (x<0) 如果输入x值不再取值范围内，打印go die... 学好编程最重要的是自己要思考，要想。不然没有任何进步。

VB编程计算分段函数:y=1(x>0) y=0(x=0) y=-1(x<0)
1,#include<Stdio.h> int main(){ int x = 0;scanf("%d",&x);if(x < 0)printf("-1");else if( x == 0)printf("0");else printf("1");return 0;} 2,#include<stdio.h> int main(){ float a,b,c;scanf("%f%f%f",&a,&b,&c);if(a > b)a = a+b - (b = a...

vb编程,大神帮忙。分段函数
function xxx(byval x) if x<=0 then xxx=-1 elseif x<1 then xxx=sqrt(x) else xxx=x*x*x+2 end ifend function

vb中用select case 编写简单分段函数
把所有的case is<0，改为case 0，case 10;等等。对于一个范围内的值建议用if，如if x<10。

求一个分段函数的vb.net的代码~
可以用select case Dim i As Integer Select Case i Case Is > 0 MsgBox("变量值大于0")Case 0 MsgBox("变量值等于0")Case Is < 0 MsgBox("变量值小于0")End Select

vb高手帮忙用iif函数做分段函数
y = IIf(x < 0, x ^ 2 - 2, 2 * x - 1)

vb问题。用select case语句方法写出分段函数?
Private Sub Command1_Click()Dim x As Integer, y As Double x = Val(InputBox("enter data x:"))Select Case x Case Is > 20 y = x ^ 2 + 3 * x + 2 Case Is >= 10 And x <= 20 y = Sqr(3 * x) - 2 Case Is > 0 And x < 10 y = 1 \/ x + Abs(x)End ...

请教:vb中如何将文本内容分段存入acssess数据库
Dim i As Integer For i = 0 To UBound(bytInput)If Len(Hex(bytInput(i))) = 1 Then strData = strData & "0" & Hex(bytInput(i))Else strData = strData & Hex(bytInput(i))End If Next Text1 = strData End Function 分段存入acssess数据库需依据通信协议按要求取数据。

VB期末考试
A 不需编程 B 面向豆象的程序设计C 可视化程序设计 D 时间驱动的程序设计14、从键盘上能够输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)A Left B MidC String D Instr15、如果将布尔常量值True赋值给一个整型变量,则整型变量的值为(B)A 0 B -1C...

相似回答

大家正在搜