| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 465 人关注过本帖
标题:估计都会,就我不会
只看楼主 加入收藏
jiang8741
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-1-19
结帖率:66.67%
收藏
已结贴  问题点数:20 回复次数:3 
估计都会,就我不会
Private Sub Command1_Click()
Dim score As Single, rank As Variant, state As Variant
score = Text1.Text
If score > 85 Then
rank = "1-10"
state = "ÓÅÐã"
ElseIf score >= 75 Then
rank = "11-20"
state = "Á¼"
ElseIf score < 75 Then
rank = "20-25"
state = "&sup2;&icirc;"
End If
Text2.Text = rank
Text3.Text = state
End Sub

有什么错误啊 拜托大家??在哪里改 我菜鸟
搜索更多相关主题的帖子: 都会 
2010-01-19 11:47
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:5 
没发现有什么错误啊.

注意一下数据类型就是了.

授人于鱼,不如授人于渔
早已停用QQ了
2010-01-19 14:28
freeforever
Rank: 4
等 级:业余侠客
威 望:3
帖 子:368
专家分:201
注 册:2005-11-2
收藏
得分:15 
没看出错在哪,只是不明白这程序是什么意思,可以加下面的代码,解决在TEXT1里写入非数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim a As String
    a = Chr(KeyAscii)
    If (InStr(1, "0123456789", a) = 0 And KeyAscii <> 8) Then
        KeyAscii = 0
    End If
End Sub

其实我也很无聊!
2010-01-20 14:29
jiang8741
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-1-19
收藏
得分:0 
回复 3楼 freeforever
谢谢 重建复制一下就好了
2010-01-20 16:31
快速回复:估计都会,就我不会
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040265 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved