[VB]运行到这里卡了，谁帮忙顺一下？ [复制链接]

我想编辑一个可以解出复数根的一元二次方程计算器，结果老是卡在红字这里。
麻烦大家帮我看下究竟该怎么改，谢谢！
Private Sub CmdSolve_Click()
Dim a As Single: a = Val(Text1.Text)
Dim b As Single: b = Val(Text2.Text)
Dim c As Single: c = Val(Text3.Text)
Dim p As Single: p = b ^ 2 - 4 * a * c
Dim x1 As Single, X2 As Single, e As Single, f As Single
If a = 0 Then
Text4.Text = "无解"
Text5.Text = "无解"
Else: If p >= 0 Then x1 = (-b + Sqr(p)) / (2 * a): X2 = (-b - Sqr(p)) / (2 * a): Text4.Text = x1: Text5.Text = X2
Else: e = -b / (2 * a): f = (Sqr(-p)) / (2 * a): Text4.Text = Str(e) & "+" & Str(f) & "i": Text5.Text = Str(e) & "+" & Str(f) & "i"
End If
End If
End Sub

为什么下载下来用不了？！

15# topbluecat


那啥，直接写显存不更好玩吗
实现抖动灰度

VB中认goto某某行 才从QB转VB的时候常用 代码结构会很乱....
山寨实验室 发表于 8-3-2009 19:26

Never use Goto
Goto用，也是用标签，千万别行号，会乱套的
行号是给文曲星和ROMBASIC用的

Qbasic是不需要用run的。按F5么。
Attached Images

文曲星上的N多游戏经典 后来出了LAVA（GVMaker） GVB就没落了..
Attached Images

想起以前玩Qbasic 。。 打个run然后回车，很经典= =

我现在也不喜欢行号，还是书签式的比较好。
我初中也在文曲星的GVBasic上编程，也是一些一元二次方程计算器、二元一次方程计算器之类的简单程序，当时很受同学们欢迎。现在想起来觉得很弱智……

话说以前在同学的文曲星(支持Basic)上写了个病毒，不断写文件.......

11# Carneades

我不觉得是对QB的封装。毕竟有很多东西都不一样了。

行号好像是自己加的。不会错位。也可以这样：goto 100
label1:
end
labelit:
msgbox \"Hello,world!\"
goto label1
100:
goto labelit即可以用以字母表示的Label完成行号的功能。
老用行号是不好的。比如：10 i = 0
20 i = i + 1
30 PRINT i; \" squared = \"; i * i
40 IF i >= 10 THEN GOTO 60
50 GOTO 20
60 PRINT \"Program Completed.\"
70 END