我将数据定义为single类型,可得到的结果如果为0.985472却显示为.985472,请问怎样在数值前自动格式化为0?
另外还有一个问题,对yy作如下判断:
如果等于1,输出完全正相关
等于-1,完全负相关
等于0,不相关
在0到1之间,正相关
-1到0之间,负相关
Select Case yy
Case 1
Text3.Text = Text3.Text & "属于完全正相关"
Case 0
Text3.Text = Text3.Text & "属于不相关"
Case (yy > 0 And yy < 1)
Text3.Text = Text3.Text & "属于正相关"
Case (yy < 0 And yy > -1)
Text3.Text = Text3.Text & "属于负相关"
Case -1
Text3.Text = Text3.Text & "属于完全负相关"
End Select
以上语句正确吗?谢谢
另外还有一个问题,对yy作如下判断:
如果等于1,输出完全正相关
等于-1,完全负相关
等于0,不相关
在0到1之间,正相关
-1到0之间,负相关
Select Case yy
Case 1
Text3.Text = Text3.Text & "属于完全正相关"
Case 0
Text3.Text = Text3.Text & "属于不相关"
Case (yy > 0 And yy < 1)
Text3.Text = Text3.Text & "属于正相关"
Case (yy < 0 And yy > -1)
Text3.Text = Text3.Text & "属于负相关"
Case -1
Text3.Text = Text3.Text & "属于完全负相关"
End Select
以上语句正确吗?谢谢
解决方案 »
- 连接远程数据库的字符串怎么写啊?请高手指导下~~~~~~~~~~```
- 软件工程师必读的好文章---《软件工程思想》全文,可下载。
- Textbox 与MSHFlexGrid的问题
- 高分求———用vb制作电子警察拍照及违规处理系统的代码
- DOS程序键盘输入接口问题
- 能推荐几个VB初学者学习网站?还有一些VB经典教程及经验之谈吗?
- 如何向自己定义好的菜单内动态添加选择项?
- 怎样声明数组作全局变量,急牙
- 请问大虾上网都玩些什么?顺便有个技术问题也请指教。统统给分
- VB擂台(高手请退出)一键锁定电脑,如死机无黑屏无蓝屏无法关机!并出现警告“关闭电源会......",并且鼠标可移动
- StarRib进来接分
- 怎么实现用VB做一个辅助的输入系统
Text3.Text = Text3.Text & "属于正相关"
Case (yy < 0 And yy > -1)
Text3.Text = Text3.Text & "属于负相关"
这几句应该就不对了,你还是用If判断吧,多用点elseif也不是很麻烦的
CSTR(Format$(0.985472,"0.#######"))
2.以上语句正确吗?谢谢
错误!改成如下:
If yy = 1 Then
Text3.Text = Text3.Text & "ÊôÓÚÍêÈ«ÕýÏà¹Ø"
ElseIf yy = 0 Then
Text3.Text = Text3.Text & "ÊôÓÚ²»Ïà¹Ø"
ElseIf (yy > 0 And yy < 1) Then
Text3.Text = Text3.Text & "ÊôÓÚÕýÏà¹Ø"
ElseIf (yy < 0 And yy > -1) Then
Text3.Text = Text3.Text & "ÊôÓÚ¸ºÏà¹Ø"
Else
Text3.Text = Text3.Text & "ÊôÓÚÍêÈ«¸ºÏà¹Ø"
END IF
Text3.Text = Text3.Text & "属于完全正相关"
ElseIf yy = 0 Then
Text3.Text = Text3.Text & "属于不相关"
ElseIf (yy > 0 And yy < 1) Then
Text3.Text = Text3.Text & "属于正相关"
ElseIf (yy < 0 And yy > -1) Then
Text3.Text = Text3.Text & "属于负相关"
Else
Text3.Text = Text3.Text & "属于完全负相关"
End Select
2、Select Case yy
Case 1
Text3.Text = Text3.Text & "属于完全正相关"
Case 0
Text3.Text = Text3.Text & "属于不相关"
Case -1
Text3.Text = Text3.Text & "属于完全负相关"
Case 0 to 1
if (yy<>0) and (yy<>1) then
Text3.Text = Text3.Text & "属于正相关"
end if
Case -1 to 0
if (yy<>-1) and (yy<>0) then
Text3.Text = Text3.Text & "属于负相关"
end if
End Select其实 yy=0,1,-1的时候,先执行前面的Case,后面的case是不执行的,if语句可以不要Select Case 语句
根据表达式的值,来决定执行几组语句中的其中之一。语法Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]End SelectSelect Case 语句的语法具有以下几个部分:部分 描述
testexpression 必要参数。任何数值表达式或字符串表达式。
expressionlist-n 如果有 Case 出现,则为必要参数。其形式为 expression,expression To expression,Is comparisonoperator expression的一个或多个组成的分界列表。To 关键字可用来指定一个数值范围。如果使用 To 关键字,则较小的数值要出现在 To 之前。使用 Is 关键字时,则可以配合比较运算符(除 Is 和 Like 之外)来指定一个数值范围。如果没有提供,则 Is 关键字会被自动插入。
statements-n 可选参数。一条或多条语句,当 testexpression 匹配expressionlist-n中的任何部分时执行。
elsestatements 可选参数。一条或多条语句,当 testexpression 不匹配 Case 子句的任何部分时执行。
说明如果 testexpression 匹配某个 Case expressionlist 表达式, 则在 Case 子句之后,直到下一个 Case 子句的 statements 会被执行;如果是最后一个子句,则会执行到 End Select。然后控制权会转移到 End Select 之后的语句。如果 testexpression 匹配一个以上的 Case 子句中的 expressionlist 表达式,则只有第一个匹配后面的语句会被执行。Case Else 子句用于指明 elsestatements,当 testexpression 和所有的 Case 子句中的 expressionlist 都不匹配时,则会执行这些语句。虽然不是必要的,但是在 Select Case 区块中,最好还是加上 Case Else 语句来处理不可预见的 testexpression 值。如果没有 Case expressionlist 匹配 testexpression,而且也没有 Case Else 语句,则程序会从 End Select 之后的语句继续执行。可以在每个 Case 子句中使用多重表达式或使用范围,例如,下面的语句是正确的:Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber注意 Is 比较运算符和使用在 Select Case 语句中的 Is 关键字并不相同。也可以针对字符串指定范围和多重表达式。在下面的例子中,Case 所匹配的字符串为:等于 everything、按英文字母顺序落入从 nuts 到 soup 之间的字符串、以及 TestItem 所代表的当前值。Case "everything", "nuts" To "soup", TestItemSelect Case 语句也可以是嵌套的。但每个嵌套的 Select Case 语句必须要有相应的 End Select 语句。
CSTR用得不对
Format$本身输出的是字符,CSTR是把数字装换为字符