[求助]：case & if....

goim88 · 发表于 2006-4-18 00:22:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教一下下~~~ :)

.......
Case 3
d1 = (s / 2)
d2 = s
d3 =(5s / 2)
If o1 = o3 Then--------------------------'为什么不能判断o1=o3 then.....
ofe = o2 / 2 '是if不能在case中还是语法错了??
prt = vbCr & "总长L=" & ofe
Else
prt = vbCr & "得d1=" & d1
End If--------------------------------------
Case 4
......

chengshirui · 发表于 2006-4-18 12:43:43

你程序的问题

goim88 · 发表于 2006-4-18 20:02:12

Dim d1 As Double
Dim d2 As Double
Dim d3 As Double
Dim o(9) As Double
这是之前的宣告
变数是不一样的~
只是表达式不管o1是否等于o3都会跑prt = vbCr & "总长L=" & ofe 失去判断能力了??
奇怪~~??

雪山飞狐(lzh) · 发表于 2006-4-18 22:03:28

把VB的基本语法再看看，特别是关于数组的一章，基本东西最关键！

goim88 · 发表于 2006-4-19 00:24:21

已经解决罗～～
原来是少了夸号 o（n）

账号		自动登录	找回密码
密码			立即注册

[求助]：case & if....

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子