chenglili123-CSDN博客

原创随机生成n个整数

Private Sub command1_click() Dim a() As Integer 'a用来存放生成的随机n个正整数 n = InputBox("请输入一个整数n,n>=1") ReDim a(1 To n) Dim p As String 'p表示随机生成的n个整数 Randomize p = "

2012-05-29 20:02:27 1440

原创实现摄氏温度与华氏温度的转换

Option ExplicitPrivate Sub Command1_Click() IfTrim(Text1.Text) = "" Then Text1.Text = "0" Label3.Caption = transth(Val(Text1.Text), True) Label4.Caption = "摄氏度" Label5.Caption = "华氏度"

2012-05-05 13:52:26 1339

原创十个数大小的比较

Private Sub Command1_Click() Dima As Integer Dimb As Integer Dimc As Integer Dim f(i) As String c = f(i) a =12 b =6 Ifa > b Then mymax = a Else mymax = b E

2012-05-05 13:48:03 425

原创三个数大小的比较

在窗体上插入三个文本框，一个按钮，输入代码：Private SubCommand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = Text1.Text b = Text2.Text c = Text3.Text If a > bThen Max = a

2012-05-05 13:46:34 298

原创 1000~2000内能被17与37同时整除的数

Private Function judge(N As Integer) AsBooleanjudge = (N Mod 17 = 0 And N Mod 37 = 0) End Function Private Sub Form_Click()Dim i As IntegerFor i = 1000 To 2000If judge(i) ThenPrint i

2012-05-05 13:43:15 493

原创两个数大小的比较

在窗体上插入两个标签，两个文本框，一个按钮。输入代码：Private Sub Command1_Click() Dima As Integer Dimb As Integer a =Text1.Text b =Text2.TextIf a > b Then Print aElse Print bEnd If End Sub这个

2012-05-05 13:40:38 605

原创 100以内素数的和

Private Sub Form_Load() Dims As Integer, n As IntegerShow s =0: n = 2Do While n s =s + n n =m Dimx As Integer Dimflag As Boolean x =m - 1 flag= FalseWhile x >= 2 If mMo

2012-04-26 21:12:41 212

原创计算出生日期那天是星期几

Private Sub Command1_Click() Dimyear As Integer Dimmonth As Integer Dimday As Integer Dimweekofday As Byte Dimbirthday As Dateyear = Int(Val(Text1.Text))month = Int(Val(Text2.Text))

2012-04-26 21:04:30 905

原创生成随机整数

用Int和Rnd函数生成指定范围的随机整数；用Randmize函数初始化随机数发生器；用Val函数将数字字符串转换为数值。在窗体上放置三个文本框，分别用于输入随机数的上界和下界，显示生成的随机整数；一个命令按钮用于执行随机整数的生成和显示；三个标签，用于对文本框作简要说明。输入代码如下：Private Sub Command1_Click()Dim m As Integer

2012-04-03 16:50:54 772

原创随机生成不同的图形

在窗体上画一个commandbutton按钮，双击按钮编写程序语言，其语言如下：Private Sub Command1_Click() Show Me.Scale (0, 0)-(18, 8) Me.AutoRedraw = True Me.DrawMode = 2 Circle (3, 4), 3, vbRed Me.AutoRedraw = False

2012-04-03 16:49:20 367

原创大小写转换

1. 建立窗体，在窗体上画出一个Label,输入文字如下：“英文字母如下：”，再画出一个Text，再画出三个command按钮，分别输入以下文字“转大写”，“转小写”，“还原”。2. 编写代码：在通用生命段中输入程序语言，如下：dim x as string点击Text编写如下程序：Private sub form_load() X=text1.text

2012-04-03 16:42:42 515

原创数的乘法计算

新建一个窗体，插入三个标签，分别为“M”,“N”,“空白”。再插入两个Text，caption为“空白”。应用按钮控件，属性改为“计算”。在通用声明段输入Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Tri

2012-04-03 16:40:16 232

原创会动的圆

用VB绘制图形并使其运动绘制圆形并运动的程序代码打开VB6.0程序，新建一个窗体。应用command画出一个按钮，将command的caption属性改为“开始运动”；插入一个timer,将其interval属性改为1000，enabled属性改为FALSE。用shape控件画出一个圆。Dim g As BooleanDim x As Long

2012-04-03 16:30:01 276

原创浮点数的表示

浮点数并不一定等于小数，定点数也并不一定就是整数。所谓浮点数就是小数点在逻辑上是不固定的，而定点数只能表示小数点固定的数值，具用浮点数或定点数表示某哪一种数要看用户赋予了这个数的意义是什么。　　C++中的浮点数有6种，分别是：　　float：单精度，32位　　unsigned float：单精度无符号，32位　　double：双精度，64位　　unsigne

2012-04-03 16:25:51 619

chenglili123的专栏