×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 4346|回复: 23

[vb,vc,delphi] 求助各位大虾

  [复制链接]
发表于 2010-11-16 19:48:11 | 显示全部楼层 |阅读模式
我刚学的VB,我在VB上输入这段代码
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入年份"): b = InputBox("输入月份")
Select Case b
Case 1, 3, 5, 7 To 8, 10, 12
c = 31
Case 4, 6, 9, 11
c = 30
Case 2
If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then
c = 29
Else
c = 28
End If
End Select
Print a; "年"; b; "月有"; c; "天"
End Sub
点运行后跳出inputbox输入框,然后点取消就出现类型不匹配,这是为什么呀,需要做什么修改
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=335224
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2010-11-19 16:29:57 | 显示全部楼层
酷素材
'这样就不会有错误了,但是输入的内容没有限制,显得比较简陋。
Private Sub Form_click()
Dim a As String, b As String, c As String
a = InputBox("输入年份"): b = InputBox("输入月份")
Select Case b
Case 1, 3, 5, 7 To 8, 10, 12
c = 31
Case 4, 6, 9, 11
c = 30
Case 2
If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then
c = 29
Else
c = 28
End If
End Select
Print a; "年"; b; "月有"; c; "天"
End Sub
回复 支持 反对

使用道具 举报

发表于 2011-9-11 08:20:12 | 显示全部楼层
本帖最后由 516403014 于 2011-9-11 08:21 编辑

Private Sub Form_click()
On Error GoTo gbn '遇到错误时执行gbn下面的语句
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入年份"): b = InputBox("输入月份")
Select Case b
Case 1, 3, 5, 7 To 8, 10, 12
c = 31
Case 4, 6, 9, 11
c = 30
Case 2
If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then
c = 29
Else
c = 28
End If
End Select
Print a; "年"; b; "月有"; c; "天"
gbn:
MsgBox "输入年份和月份"
Exit Sub '结束 on error goto 语句
endsub

回复 支持 反对

使用道具 举报

发表于 2014-10-8 14:31:20 | 显示全部楼层
强烈支持楼主。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-11 01:59:04 | 显示全部楼层
酷素材
板砖为谁敲呀,为谁敲
回复 支持 反对

使用道具 举报

发表于 2014-10-11 11:53:39 | 显示全部楼层
酷素材
强烈支持楼主。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-12 15:11:16 | 显示全部楼层
强烈支持楼主。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-14 10:35:17 | 显示全部楼层
淡定,淡定,淡定。。。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-16 22:35:19 | 显示全部楼层
淡定,淡定,淡定。。。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-21 14:16:18 | 显示全部楼层
强烈支持楼主。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-22 04:40:21 | 显示全部楼层
我是酱油党一族。。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-23 13:25:37 | 显示全部楼层
板砖为谁敲呀,为谁敲
回复 支持 反对

使用道具 举报

发表于 2014-10-24 11:16:56 | 显示全部楼层
板砖为谁敲呀,为谁敲
回复 支持 反对

使用道具 举报

发表于 2014-10-25 15:43:29 | 显示全部楼层
淡定,淡定,淡定。。。。。
回复 支持 反对

使用道具 举报

发表于 2014-10-26 14:41:16 | 显示全部楼层
难得一见的给力帖子哈。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345