在VB中,设置一个TEXT1,要求输入10则取0到10之间的不重复整数,输入20则取11到20之间不重复整数,以此类推.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 19:26:30
在VB中,设置一个TEXT1,要求输入10则取0到10之间的不重复整数,输入20则取11到20之间不重复整数,以此类推.当然,取数能从小到大取更好,即:1,2,3,4,5,6...
一次去一个即可.
只需Int(Rnd或其他的简单表达式,因为我要直用所取的数做计算
一次去一个即可.
只需Int(Rnd或其他的简单表达式,因为我要直用所取的数做计算
输入10的倍数后按回车!
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
n = Int(Text1.Text)
If n Mod 10 0 Then
MsgBox "取值不为10的倍数!"
Exit Sub
End If
Text1.Text = ""
For i = 9 To 1 Step -1
Text1.Text = Text1.Text & "," & n - i
Next
Text1.Text = Right(Text1.Text,Len(Text1.Text) - 1)
End If
End Su
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
n = Int(Text1.Text)
If n Mod 10 0 Then
MsgBox "取值不为10的倍数!"
Exit Sub
End If
Text1.Text = ""
For i = 9 To 1 Step -1
Text1.Text = Text1.Text & "," & n - i
Next
Text1.Text = Right(Text1.Text,Len(Text1.Text) - 1)
End If
End Su
在VB中,设置一个TEXT1,要求输入10则取0到10之间的不重复整数,输入20则取11到20之间不重复整数,以此类推.
C编程的:编写一个程序,此程序要求输入一个整数,然后打印出从输入的值到比输入的值大10的所有整数.要求在各个输入值之间用
在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?
JAVA题,使用java.lang.Math类,生成50个0到99之间的不重复的随机整数,并按降序的顺序输出这些整数
用C#语言 输入一个整数n,输出1到n之间的全部整数.
Excel生成随机数,求公式,1到1550之间取30个随机数,保持在A列就可以,要求不重复.
随机产生N个1,1000之间不重复的整数存入数组A中,并按从大到小顺序排列.键入整数X,查找:若无,则插入,
从键盘上输入一个大于0的整数,计算从1到这个整数之间的所有不被3整除的累加结果,并把结果输出显示.
EXCEL中怎样才能实现“不重复!”随机取某区间的整数
1.编写程序,随机生成30个10-99之间的整数保存到数组中,在输出此数组后,要求删除数组中的所有重复元素之后
如何用C语言重复的产生不重复的0到9之间的随机数?
数轴上-10到10之间取一整数,则这个数的绝对值在2-6之间的概率是______.