lijinying1015-CSDN博客

原创随机数

Private sub command1_click()Dim m as integerDim n as integerM=val（text1.text）N=val(text2.text)Text3.text=m+int(rnd*(n-m+1))End sub在空白处双击，编写程序如下：Private sub form_load()RandomizeEn

2012-05-25 08:14:44 205

原创随即生成n个数

Private Sub command1_click() Dim a() As Integer n = InputBox("请输入一个整数n,n>=1") ReDim a(1 To n) Dim p As String Randomize p = "" For i = 1 To n

2012-05-25 08:14:15 538

原创数的乘法计算

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

2012-05-25 08:13:20 201

原创两个数比较

两个数比较大小在窗体上插入两个标签，两个文本框，一个按钮。输入代码：Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.TextIf a > b Then Print aElse Print bEn

2012-05-25 08:12:47 489

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

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

2012-05-25 08:12:11 1549

原创判断生日是星期几

Function myweekdayName(weekofday As Integer) As StringSelect Case weekofday case1 myweekdayName = "星期日" Case2 myweekdayName = "星期一" case3 myweekdayName = "星期二"

2012-05-25 08:11:05 357

原创两位数乘法拆分

Private Sub Command1_Click()Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numberle

2012-05-25 08:10:23 1284

原创两位数乘法

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

2012-05-25 08:09:26 827

原创会动的园

Dim g As BooleanDim x As Long Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Form_Load()g = Truex = Shape1.LeftEnd Sub Private Sub Timer1_Timer()If g Th

2012-05-25 08:08:43 1406

原创素数的和

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

2012-05-25 08:07:28 207

原创第一次编程序的感想

之前总以为遍程序的人是是伟大的，没想到今天我也会做了，以前从来没有碰过这种东西，因为以为这是一种很伟大的事情，一般人真做不到，可在老师演示时，我才觉得简直是太神奇了，编程序的人头脑真不一般啊，… 在开始做题时总是出错不过在别人的帮助下最后做完了，会有一种很强的成就感，可让人郁闷的是在最后老师检查的时候，我居然我把作业页面关了，不得不在写一遍，真悲催，不过还好，有了这次

2012-04-17 17:26:23 548

原创 VB作业题

系别：电子信息科学与技术班级：电子2班姓名：李金颖日期：3月20号 VB实验报告——实现能动的图形 Private Sub Command1_Click()Timer1.Enabled = Tr

2012-04-17 17:25:21 291

原创 VB实验报告

系别：电子信息科学与技术班级：电子2班姓名：李金颖日期：3月20号一实验目的：制作实现能动图形二实验内容；打开窗口，再左边的工具栏中查找相应的选项，再右边窗口，拖拉产生按钮，再在右下角进行编辑，单机按钮输入相应程序如下：Private S

2012-04-17 17:24:25 300

lijinying1015的专栏