用vb实现输入总数,分别计算奇数数列和偶数数列,中间用“,”隔开,
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 22:09:36
用vb实现输入总数,分别计算奇数数列和偶数数列,中间用“,”隔开,
页数也就是总数,在text1输入后点击“计算”,在text2显示奇数,如:“1,3,5,7,9···”,在text3显示偶数,如:“2,4,6,8,10···”
页数也就是总数,在text1输入后点击“计算”,在text2显示奇数,如:“1,3,5,7,9···”,在text3显示偶数,如:“2,4,6,8,10···”
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
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
用vb实现输入总数,分别计算奇数数列和偶数数列,中间用“,”隔开,
vb 输入10个整数,计算偶数个数 ,奇数和.
一个项数为奇数的等差数列,它的奇数项与偶数项之和分别为168和140,则此数列的中间项是
用VB分别求出100以内的奇数和、偶数和
在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?
输入10个实数,求10个数所以奇数之和,偶数之和,分别用while,do while,和for三种循环结构实现
一个等差数列共2n+1项,其中奇数项与偶数项之和分别为36和30,求这个数列的项数与中间项
偶数奇数的排列用随机数产生10到80的数,产生的偶数和奇数存入数组偶数小到大奇数大到小排好序后分别输入到文本框中
二叉排序树的实现 分别用顺序和二叉链表作存储结构 1)以回车('\n')为输入结束标志,输入数列L,生成一棵二
VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.
用pascal 输入N个数,计算偶数、奇数和零的个数
用vb判断输入1 to 1000是否为奇数,偶数,素数