yuqunxia-CSDN博客

原创随机生成10个整数

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-16 19:13:56 3211

原创随机生成十个不重复的整数

第一篇：Private Sub Form_Load()Me.FontSize = 18Dim a(100) As Integer, b(100) As IntegerDim i As Integer, j As Integer, k AsIntegerForm1.AutoRedraw = TrueRandomizeFor i = 1 To 100a(i) = i

2012-05-09 18:05:27 736

原创判断整除并求和

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-03 22:21:19 411

原创温标转换

Option ExplicitPrivate Sub Command1_Click() '摄氏→华氏If Trim(Text1.Text) = "" ThenText1.Text = "0"'调用自定义函数Label3.Caption = transth(Val(Text1.Text),True)Label4.Caption = "摄氏度"Label5.Caption =

2012-04-28 21:18:48 916

原创 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-04-28 21:12:17 208

原创能被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 Is1

2012-04-16 20:18:37 561

3月28日，又是一节计算机课，这节课我学到了好多道理。不是有关学习上的道理，而是有关人生的道理。开始上课的时候丁老师批评了我们写的实验报告，但其实我们是第一次写实验报告，我们也确实真的不会。但你说：“大学，不是应付作业，而是提升思想目标。”我其实是很赞同这句话的，不然，我们来读大学干嘛。大学，不仅是求知的地方，更是教会我们如何独立生活、学会人际交往的地方。所以说，提升思想目标是我们来读大学的重要原

2012-03-31 22:37:07 247

原创求两个整数的乘积

Option Base 1Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim Number2() As Byte ReD

2012-03-28 11:42:02 1429

原创 VB实验报告

一、实验目的：通过此次的实验是为了让我们更加的了解VB，更加深入的去探索学习VB的奥妙。同时，此次试验的目的不仅仅只限于此，更重要的是让我们养成自主学习的习惯，培养我们独立学习的能力。让我们适应大学的学习方法：不是被迫的学习，而是自己主动的学习。二、实验内容：1、显示各位数：Private Sub Command1_Click()Dim x As IntegerDim a

2012-03-27 22:14:31 1026

原创随机生成圆

Private Sub Command1_Click()Form1.ClsEnd SubPrivate Sub Form_Mousedown(Button As Integer,Shift As Integer,X As Single,Y As Single)FillColor=QBColor(Int(Rnd*15))FillStyle=Int(Rnd*8)Circle(X

2012-03-26 21:54:16 423

原创一切都有为什么

上了这么久的电脑软件程序设计课，突然明白了好多。一切的事情都得脚踏实地的做，没有什么事是可以一步登天。就好像程序设计一般，多一步或是少一步都不可能设计出一份完美的程序。一份漏洞百出的设计，是不可能有结果的。人生也一样，一步出错，满盘皆输。只有一步一步踏踏实实的干，才能登上成功的阶梯，收获最甘甜的果实。没有人不想一步登天，没有人不期盼天上掉馅儿饼的事，没有人不想株待兔；可真正通过这些方法成功的人又有

2012-03-26 19:58:04 464

原创字母大小写转化

在通用声明段中，声明模块级变量x,代码如下：Dim x as StringPrivate Sub Form_Load() x=Text1.TextEnd SubPrivate Sub Command1_Click() Text1.Text=Ucase(x)End SubPrivate Sub Command2_Click() Text1.Tex

2012-03-26 19:49:30 228

原创分析是不是素数

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-26 19:36:20 220

原创求最大公约数

Option ExplicitPrivate Sub Command1_Click()Dim M As IntegerDim N As IntegerM=Int(Val(Text1.Text))N=Int(Val(Text2.Text))Dim TemporyValue As IntegerIf MTemporyValue=MM=NN=Tempory

2012-03-25 21:44:22 205

yuqunxia的专栏