- 博客(15)
- 收藏
- 关注
原创 随机生成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 21:01:18
681
原创 实现华氏温度与摄氏温度的转换
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-29 20:58:18
976
原创 十个数的大小的比较
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-29 20:57:13
328
原创 三个数大小的比较
在窗体上插入三个文本框,一个按钮,输入代码: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-29 20:55:54
262
原创 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-29 20:55:04
469
原创 两个数大小的比较
在窗体上插入两个标签,两个文本框,一个按钮。输入代码: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-29 20:50:58
420
原创 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-05-29 20:49:31
286
原创 计算出生那天是星期几
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-05-29 20:47:57
656
原创 生成随机整数
用Int和Rnd函数生成指定范围的随机整数;用Randmize函数初始化随机数发生器;用Val函数将数字字符串转换为数值。在窗体上放置三个文本框,分别用于输入随机数的上界和下界,显示生成的随机整数;一个命令按钮用于执行随机整数的生成和显示;三个标签,用于对文本框作简要说明。输入代码如下:Private Sub Command1_Click()Dim m As Integer
2012-05-29 20:47:12
332
原创 随机生成图形
在窗体上画一个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-05-29 20:46:31
256
原创 大小写转换
1. 建立窗体,在窗体上画出一个Label,输入文字如下:“英文字母如下:”,再画出一个Text,再画出三个command按钮,分别输入以下文字“转大写”,“转小写”,“还原”。2. 编写代码:在通用生命段中输入程序语言,如下:dim x as string点击Text编写如下程序:Private sub form_load() X=text1.text
2012-05-29 20:45:07
257
原创 数的乘法计算
新建一个窗体,插入三个标签,分别为“M”,“N”,“空白”。再插入两个Text,caption为“空白”。应用按钮控件,属性改为“计算”。 在通用声明段输入Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Tri
2012-05-29 20:43:43
208
原创 实现能动的图形
首先打开VB程序,在对象视图的窗口中画一个commandbutton,将其caption属性改为“开始运动”,然后在对象视图窗口插入一个timer,将其interval属性改为1000,enabled属性改为false,之后再用“shape”画一个圆于对象视图窗口,这样视图窗口的操作就完成了,之后是编辑代码,实现能动的图形。 将对象窗口改为代码窗口,输入代码,Dim g As B
2012-04-02 21:51:32
222
原创 计算机单精度数据
选用单精度数据,是说你让电脑用较少的空间存放数据,表现为精确到小数点后5位,并且第五个小数还是四舍五入得到的,如果你用双精度定义数据,是说你用较多的空间存放同一个数,表现为小数点后较多的位数,同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。 单精度表示13.25: (13.25)10=1*101+3*100+2*10-1+2*10-2
2012-04-02 21:41:04
385
原创 第一次接触程序设计的感想(2012-2-15)
今天是有生以来第一次接触程序设计,感觉挺好玩的,嘿嘿,虽然遇到了一点问题,但经过自己的努力得到的结果总是让人满意的。在完成任务的过程中,由于少输入了一个小框框,总是不呢不能成功,经过学姐的指点,我成功了,周边的同学也几乎都出现了各种各样的错误,很多是由于自己的一点小马虎,这让我知道了做事严谨的重要,以后做事一定会认认真真的完成,不要让那一点细节影响了整个过程。同学总说程序设计很难,但是我相
2012-04-02 21:38:45
435
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人