所有关于我对vb code的疑问都会在此写下...请大家留意...

goodhermit95

如果要 A+A - B+ B- ,依此类推~

电脑@白痴

哇...刚刚考完试啊...
累啊...
不过谢谢你们提供资料...

电脑@白痴

普通的除...
如果txt1 和 txt2 的 text 放空...
就代表无限大的意思对吧...
可是酱会 overflow...
有什么解决方法吗...

电脑@白痴

原帖由 goodhermit95 于 2008-7-27 09:30 AM 发表
输入分数框 = textbox1
显示分数 = label1.text
探测按钮 = Button1
Private Sub button1_click()
  If textbox1.text = Int(80~100) Then
    label1.text = "Your Rank Is -A-"
  ElseIf textbox1.tex ...

这个code 有问题...
syntax error~

电脑@白痴

还有你的code有严重问题...
应该是 label1.caption 而不是 label1.text...
还有在 int(80~100)...
它讲有问题...

Anything~~!

输入分数框 = textbox1
显示分数 = label1.caption
探测按钮 = Button1
Private Sub button1_click()
x=val(textbox1.text)
  If 100>=x>=80 Then
    label1.caption= "Your Rank Is -A-"
  ElseIf 79>=x>=60 Then
    Label1.caption = "Your Rank Is -B-"
  ElseIf 59>=x>=40 Then
    Label1.caption = "Your Rank Is -C-"
  ElseIf 39>=x=20 Then
    Label1.caption = "Your Rank Is -D-"
  ElseIf 19>=x>=0 Then
    Label1.caption = "Your Rank Is -E-"

  End If
End Sub

电脑@白痴

有什么办法可以按一下 textbox
然后 textbox 的字就 highlight 起来吗？

goodday

原帖由 goodhermit95 于 2008-7-27 09:30 AM 发表
输入分数框 = textbox1
显示分数 = label1.text
探测按钮 = Button1
Private Sub button1_click()
  If textbox1.text = Int(80~100) Then
    label1.text = "Your Rank Is -A-"
  ElseIf textbox1.tex ...

你的码 永远不会到 100 full mark

在第一个已 出去了

goodday

原帖由 电脑@白痴 于 2008-8-1 08:53 PM 发表
还有你的code有严重问题...
应该是 label1.caption 而不是 label1.text...
还有在 int(80~100)...
它讲有问题...

他是  vb.net 的 你是vb6 的
哈哈 你很勤力叻 有试的