- 博客(15)
- 收藏
- 关注
RSS订阅原创 随机生成十个整数
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() Form_LoadEnd Sub Private Sub Form_Load() Dimp As String 'p用来显示随机生成的10个数 Randomize p = "" Fori = 1 To 10 '生成10个随机整数
2012-05-22 23:53:28
1250
原创 随机生成十个不重复的整数
Private Sub Command1_Click() Dim a() As Integer ReDim a(100) a(1) = Int(Rnd() * 1000 + 1) Print a(1) For i = 2 To 10 For k = 1 To i - 1 t= Int(Rnd() * 1000 + 1) Ifa(
2012-05-22 23:52:32
588
原创 判断整除或求和
Private Sub Command1_Click()Dim m As Integer, n As Integer, d AsIntegerDim s As Long '保存结果m = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)s = 0sum m, n, d, sLabel4.Caption = m
2012-05-22 23:50:39
404
原创 温标转换
Option ExplicitPrivate Sub Command1_Click() '摄氏→华氏If Trim(Text1.Text) = "" ThenText1.Text = "0"'调用自定义函数Label3.Caption = transth(Val(Text1.Text),True)Label4.Caption = "摄氏度"Label5.Caption =
2012-05-22 23:49:25
468
原创 10个数的比较
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim j As
2012-05-22 23:48:33
314
原创 求100以内素数的和
Private Sub Command1_Click() Dim s As Integer, n As Integer s= 0: n = 1 DoWhile n If IsPrimer(n) s = s + n End If n= n + 1 Loop Print "1~100之内
2012-04-28 23:36:44
495
原创 计算你的出生日期是星期几
Private Sub Command1_Click()Dim Year As IntegerDim Month As IntegerDim Day As IntegerDim dayofweek As ByteDim Birthday As DateYear = Int(Val(Text1.Text))Month = Int(Val(Text2.Text))Day
2012-04-28 23:33:31
1037
原创 能被17和37整除的数
PrivateSub Command1_Click() Dimindex As Integer Forindex = 1000 To 2000 Step 1 IfIs17and37ZhengChu(index) = True Then Print Str(index)End If Next index End SubFunction Is17
2012-04-16 23:09:08
435
原创 两位数的乘法
Private Sub Command1_Click()Dim N As IntegerDim M As Integer N = Trim(Text1.Text)M = Trim(Text2.Text) Dim number1() As IntegerDim number2() As Integer ReDim number1(Len(N))ReDim
2012-04-10 22:56:47
310
原创 分析素数
Private Sub Command1_Click()Dim M As IntegerDim N As IntegerDim flag As BooleanM=Int(Val(Text1.Text))N=M-1flog=False '为true时，表示M可以被比他小的整数整除'While N>=2If M Mod N=0 ThenFlag=True
2012-03-28 23:53:28
279
原创 秒表制作
Interval 1000Enabled.False双击闹钟 Label1.Caption = Time双击CommandTimer1.Enabled = True 这是第三次课了。 在这几节课上，您的言语幽默风趣，让我对计算机课产生了浓厚的兴趣。尤其是你建议我们要多多利用身边的现代科学技术，帮助丰富充实自己，这是我从来没有考虑到的一点。
2012-03-28 23:41:01
521
原创 浮点数及其国际标准
浮点数（float）又称作浮点数，是属于有理数中某特定子集的数的数字表示，在计算机中用以近似表示任意某个实数。具体来说，这个实数由一个整数或定点数（即尾数）乘以某个基数（计算机中通常是2）的整数次幂得到，这种表示方法类似于基数为10的科学记数法。浮点计算是指浮点数参与的运算，这种运算通常伴随着因为无法精确表示而进行的近似或舍入。一个浮点数a由两个数m和e来表示：a = m × be。在任意
2012-03-28 23:30:05
4577
原创 成功的路上会布满荆棘
第一节课觉得很有意思，所以第二节课我也是满怀欣喜的来上课的，但这节课老师教的就难了好多，而且我觉得老师讲的跨度有点大，因为在上大学之前我们的计算机课的不怎么上，所以觉得学着有点吃力，但是让我对VB程序有了点了解，对设计程序这方面有了点小小的认识。课后我自己想了想，每一样东西都是经过我们自身的努力来获得的，不论它是易是难，所以要想学会VB程序的设计也是一样的，它也是需要自身的努力虽然它并不简单。所以
2012-03-27 23:50:41
891
原创 求最大公约数
Option Explicit Private Sub Command1_Click() Dim M As Integer Dim N As Integer M=Int(Val(Text1.Text)) N=Int(Val(Text2.Text)) Dim Tempory
2012-03-27 23:20:56
314
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人