zhangxiao1992-优快云博客

原创整除程序

Private Sub Combo1_Change()End SubPrivate Sub Command1_Click() Dim A As IntegerA = val(Text1.Text)If A Mod 17 = 0 Then If A Mod 37 = 0 Then Label3.Caption

2012-05-22 20:44:59 465

原创素数

Private Function Judge()Dim b As Integerb = b / 1 * bEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer Show a = 0: b = 1 If Judge(b Do a = a +

2012-05-22 20:43:15 220

原创生成十个随机数

Dim a(10) As IntegerDim mystr As StringDim printstr As Stringa(i) = Int(Rnd() * 100 + 1)printstr = Str(a(1))mystr = "要"For i = 2 To 10t = Int(Rnd() * 100 + 1)For k = 1 To i - 1If t =

2012-05-22 18:54:23 744

原创比较十个数大小

Private Function max(a() As Integer) As IntegerDim i As IntegerDim maxa As IntegerFor i = LBound(a) To UBound(a)If a(i) > maxa Thenmaxa = a(i)max = maxaEnd IfNext iEnd FunctionPriv

2012-05-22 18:51:15 396

原创三个数比较

Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim max As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a > b Thenmax = aElsemax = bEn

2012-05-22 18:49:00 246

原创比较两个数大小

Private Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a > b ThenLabel3.Caption = aElseLabel3.Caption = bEnd IfEnd Sub 这种题简单

2012-05-22 18:46:57 464

原创两个多位数相乘

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 Number

2012-05-22 18:45:39 281

原创计算纳税金额

Private Sub Command1_Click()Dim n As Single, w As SingleDim s As Single, m As Singlen = Val(Text1.Text)w = n - 500Select Case w Case Is s = 0.05 Case Iw s = 0.1

2012-05-22 18:42:30 236

原创计算出生日期

Private Sub Command1_Click()Dim Year As IntegerDim Month As IntegerDim Day As IntegerDim Birthday As DateDim N As IntegerYear = Int(Val(Text1.Text))Month = Int(Val(Text2.Text))Day

2012-05-22 18:40:17 340

原创生成随机图形

一：试验目的1 制作随机图形2 制作动画二：实验内容 1先界面设置和属性设置 2编写代码 1，Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd S

2012-05-22 16:30:33 1052

原创作业2

单精度浮点数　　同义词条：单精度。　　根据IEEE754国际标准，常用的浮点数有两种格式(1) 单精度浮点数(Single)　　用来表示带有小数部分的实数，一般用于科学计算。　　占用4个字节（32位）存储空间，包括符号位1位，阶码8位，尾数23位。其数值范围为3.4E-38～3.4E+38，单精度浮点数最多有7位十进制有效数字，单精度浮点数的指数用“E”或“e”表示

2012-05-22 16:28:48 194

原创第一节vb课

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

2012-05-22 16:27:38 312