vb问题：用vb的if语句和select语句写程序；程序内容：闰年：若年份能被4整除但不能被100整除或年份能

显示全部楼层 · 2012-6-24 20:57:52

新建一个工程,添加两个编辑框(TextBox),一个按钮(Command),双击按钮,看到如下代码:Private Sub Command1_Click()End Sub在这现行代码中粘贴下面代码:x = 0If (Val(Text1.Text) Mod 400) = 0 Then
x = 1ElseIf (Val(Text1.Text) Mod 1000) And (Val(Text1.Text) Mod 4 = 0) Then
x = 1End IfIf Val(Text1.Text) = 0 Then
x = 2End If
Select Case x
Case 0
...

千问 · 2012-6-24 20:57:52

text1是年份输入文本框，单击form后打印private sub form_click()a=val(text1)if a mod 100 =0thenprint“平年”elseif a mod 4=0 thenprint"闰年"endif...

千问 · 2012-6-24 20:57:52

地...

vb问题：用vb的if语句和select语句写程序；程序内容：闰年：若年份能被4整除但不能被100整除 或年份能

vb问题：用vb的if语句和select语句写程序；程序内容：闰年：若年份能被4整除但不能被100整除或年份能