Question

用vb实现输入总数,分别计算奇数数列和偶数数列,中间用“,”隔开,

Answer 1

Private Sub Command1_Click()

Dim S_num As Long

S_num = Val(Text1.Text)

Text2.Text = ""

Text3.Text = ""

If S_num > 0 Then

For i = 1 To S_num

If i Mod 2 = 1 Then '除2如余1,为奇数,写入Text2

If i < S_num - 1 Then

Text2.Text = Text2.Text & i & ","

Else

Text2.Text = Text2.Text & i '最后一个数的后面不写逗号

End If

Else '除2如无余,为偶数,写入Text3

If i < S_num - 1 Then

Text3.Text = Text3.Text & i & ","

Else

Text3.Text = Text3.Text & i '最后一个数的后面不写逗号

End If

End If

Next

Else

S_num = MsgBox("你没有输入页数,请在文本框一中输入!",vbOKOnly,"输入错误提示!")

End If

End Sub

Private Sub Form_Load()

Text1.Locked = False

Text1.Text = ""

Text2.Locked = True

Text2.Text = ""

Text3.Locked = True

Text3.Text = ""

Command1.Caption = "计算"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

Select Case KeyCode '在这里可以用IF.THEN,这样写是为了给你留下以后的扩展空间

Case 13 '按回车键相当于单击按钮

Command1_Click

Case Else

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case Asc(0) To Asc(9) '可以输入数字

KeyAscii = KeyAscii '这句可以不写,这样写是为了看的明白点

Case 8,13 '可以输入删除,可以输入回车

KeyAscii = KeyAscii '这句可以不写,这样写是为了看的明白点

Case Else '其它的不许输入

KeyAscii = 0

End Select

End Su