2011年7月 VB大版内专家分月排行榜第二2010年7月 VB大版内专家分月排行榜第二2009年12月 VB大版内专家分月排行榜第二2009年11月 VB大版内专家分月排行榜第二2009年10月 VB大版内专家分月排行榜第二2009年8月 VB大版内专家分月排行榜第二2008年11月 VB大版内专家分月排行榜第二2008年10月 VB大版内专家分月排行榜第二2008年9月 VB大版内专家分月排行榜第二
2010年6月 VB大版内专家分月排行榜第三2009年9月 VB大版内专家分月排行榜第三2009年3月 VB大版内专家分月排行榜第三2009年2月 VB大版内专家分月排行榜第三2009年1月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。vb 高手看看那错了，运行出来不是我想要的结果。_百度知道
vb 高手看看那错了，运行出来不是我想要的结果。
Private Sub Form_Load()
Label1.FontName = &宋体&
Label1.Caption = &I love u&
Label1.ForeColor = vbBlack
Label1.Width = (Form1.Width - Label1.Width) / 2
Timer1.Interval = 300
Label1.FontSize = 500
Private Sub Timer1_Timer()...
我有更好的答案
timer（）事件中这样改试一下Private Sub Timer1_Timer() If Label1.FontSize &lt:exit subIf Label1，而不能变化.ForeColor = vbYellow End If Else Label1:exit subIf Label1.2 Else Label1; 100 Then Label1.FontSize = Label1.FontSize * 1.ForeColor = vbBlack End If if 嵌套的有问题，只显示黑色的字体.FontSize = 10 End If If Label1.ForeColor = vbblack Then Label1.ForeColor = vbred .ForeColor = vbblue Then Label1.ForeColor = vbYellow :exit subIf Label1.ForeColor = vbyellow Then Label1.ForeColor = vbRed Then Label1.ForeColor = vbblue If Label1.ForeColor = vbBlack Then Label1.ForeColor = vbRed If Label1.ForeColor = vbRed Then Label1.ForeColor = vbBlue Else Label1
在Form_Load中加入Label1.AutoSize = True
我读初三，老师刚教，自己也不懂
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB初级问题
高手看看哪错了_百度知道
VB初级问题
高手看看哪错了
题目：设sum=11×22×32×…×n2，求sum不大于100000时最大的n。
我是这样写的
Dim n As Single
Dim s As Single
Dim t As Single
Private Sub Command1_Click()
While t &= 100000
我有更好的答案
s=s+t 不是×While s &= 100000不是t
采纳率：45%
太大了超过最大计算范围了
t = n ^ 2 n = n + 1 s = s * t 式子不对
s的值太大了，如果s没什么用，把s = s * t 去了吧。
看明白你的意思了.Dim n As Single Dim s As Single Dim t As Single Private Sub Command1_Click() n = 1 s = 1 t = 1 While s &= 100000 't改为s就好了，你自己的限制条件都搞错了t = n ^ 2 n = n + 1 s = s * t Wend Text1.Text = n End Sub
其他2条回答
为您推荐：
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请高手看看这个VB代码错在哪了_百度知道
请高手看看这个VB代码错在哪了
Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
For i = a To b
Text3.Text = a * b
我想要的结果是这样的假如text1.text=1,text2.text=2那么在text3.text中显示
我在debug...
我有更好的答案
Text3.Text =Text3.Text +cstr( a * b)
采纳率：51%
你的Text3，没法回答！你要实现什么功能.Text = a * b有问题，你的问题没有说清楚代码是没有问题，算法问题
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB的 高手来急
看看这哪里错了_百度知道
VB的 高手来急
看看这哪里错了
Private Sub Command1_Click()
Const pi = 3.14
If Text1.Text = && Then
r = Text1.Text
If r = Val(Text1.Text) Then
s = pi * r * r
Label3.Caption = s
MsgBox &输入的不是数据，请重新输入！&
我有更好的答案
ylei1988正确。。Private Sub Command2_Click() unload meEnd Sub 出可以
采纳率：37%
&gt.Text = && Then
应该改为If Text1.Text &&&quotIf Text1
r = Val(Text1.Text)一个是字符串，一个是数字，不能判断相等MsgBox后不用SetFocus
汗 你把 If Text1.Text = && Then改成 If Text1.Text && && Then就行了
其他1条回答
为您推荐：
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}