社区
空间
专栏
全部文章
ldc发表回复 17年0个月前
VB有一些变量类型编译器自动给你转了，这容易使人养成坏习惯，所以建议即使有自动转变量类型的功能也最好自己用函数转，以免养成坏习惯。本人从VB转向C的初期对此极为不适应，习惯养成后就好了。
chuanchuan发表回复 17年0个月前
我是学汽车的的，着电源貌似分电气，原理相同吧，不过分电气能产生上万F的电压
93°发表回复 17年0个月前
还真是个好政策呢 快还钱
93°发表回复 17年0个月前
因为VB不是C，随便写就是
chuanchuan发表回复 17年0个月前
用玩具枪不就行了，我买了把气枪，里面有和你一样管子。比你细！6MM
novakon发表文章 17年0个月前
上中学的注意啦:2009年广州市中学计算机作品大赛
关于举办2009年广州市中学计算机作品大赛的通知 广州市属各区、市（县级）青科教协、教研室、各中学、局属中学：为了激发广大青少年对学习、应用信息技术的兴趣，扩大其知识面、开阔视野，培养中学生的创造性思维以及应用信息技术解决实际问题的能力，树立关注生活和关注社会的良好意识，培养善于发现、捕捉学习及生活中的问题的能力，创作出有助于学习、有助于社会公益事业的计算机作品，我市将举办2009年广州市中学计算...
dctyu发表回复 17年0个月前
听到LZ和LS的话语，鄙人感到茅塞顿开。原来维持现有体制的好处在这里。可以忍。但拦不住一些人跳出体制，不畏艰难做创造。发展的希望也就在跳出体制的人身上。
novakon发表回复 17年0个月前
不加分政策
神箭凌霄发表回复 17年0个月前
解剖一下呵呵得用牙医的工具吧
carneades发表回复 17年0个月前
搞好了，非常感谢楼上诸位！我一开始多那么长个尾巴真累最……请问为什么这里Text4.Text = x1Text5.Text = x2不要Str(x1)，而这里Text4.Text = Str(e) & "+" & Str(f) & "i"Text5.Text = Str(e) & "-" & Str(f) & "i"需要Str？
ldc发表回复 17年0个月前
或者在"Then"后加个回车。
dctyu发表回复 17年0个月前
只怕制度最终被脑子好的人改变。改良之后再出现“革命”的叫“反革命”。所以还是在改良之前“革命”吧。
ldc发表回复 17年0个月前
您多了一个"Else"，把您编辑器里的代码全删了，再把我改后的代码粘上去。
w1w2d3发表回复 17年0个月前
我算一个，可淘宝乎
carneades发表回复 17年0个月前
改了，还是不行啊。
dctyu发表回复 17年0个月前
好帖
ldc发表回复 17年0个月前
楼上的代码很有美感，赞扬一下~
fw。发表回复 17年0个月前
写程序注意一下格式，这样方便阅读，也方便查错。Private Sub CmdSolve_Click()    Dim a As Single, b As Single, c As Single, p As Single    Dim x1 As Single, X2 As Single, e As Single, f As Single    a = Val(txtA.Text)    b = V...
novakon发表回复 17年0个月前
很混乱啊,习惯不好不要整天用冒号,要敲回车。您的代码看得真的很辛苦……
ldc发表回复 17年0个月前
If要写得有条理才好...
ldc发表回复 17年0个月前
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 * cDim x1 As Single, X2 As Si...
carneades发表回复 17年0个月前
维苏威火山灰下的人……也成雕塑了。肢体的腐烂和矿化可以说是一对竞争反应吧？
xj198398xujing发表回复 17年0个月前
呵呵电炉嘛找一张石棉纸卷在燃烧管上面 再在上面绕上电炉丝外面用石棉绳保温外加一个壳子就KO了比较简单的 只是只能热到500度左右在高了就扛不住了不过好在这个实验的温度比较低也能勉强对付
苯萘蒽菲发表回复 17年0个月前
回2楼，微积分国内也是高二学的
dr-sama发表回复 17年0个月前
囧 這么小的功率能拿來做什麽？100W還考慮一下
苯萘蒽菲发表回复 17年0个月前
很多人学不好就怪制度，也不想想自己什么脑子。
carneades发表文章 17年0个月前
[VB]运行到这里卡了，麻烦大家指点
我想编辑一个可以解出复数根的一元二次方程计算器，结果老是卡在第二个else这里。麻烦大家帮我看下究竟该怎么改，谢谢！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...