dubaide-优快云博客

原创比较两个数的较大数

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 78 b = 489 If a > b Then Print a Else Print b End If End Sub

2012-05-29 20:33:24 254

原创对随机数据排序

Public Sub marge(leftlist() As Integer, rightlist() As Integer, resultlist() As Integer) Dim leftindex As Integer rightindex As Integer resultindex As Integer leftindex = LBound(leftlist) righ

2012-05-29 20:31:53 291

原创三个数的比较大小

Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim max As Integer Dim c As Integer a = 45 b = 78 c = 123 If a > b Then max = a Else max = b End If If c > ma

2012-05-29 20:31:00 301

原创 100以内的素数之和

Private Sub Command1_Click() Dim s As Integer Dim n As Integer Dim m As Integer Dim x As Integer Dim flag As Boolean s = 0: n = 2 Do While n s = s + n n = x m = Int(Val(Text1.Text)) x = m

2012-05-29 20:29:18 435

原创 Option Base1

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-29 20:28:10 507

原创大小写转换

一·实验目的实现英文字母大小写转换。二·实验内容 1. 建立窗体，再创提上画出一个Label,输入文字如下：“英文字母如下：”，再画出一个Text，再画出三个command按钮，分别输入以下文字“转大写”，“转小写”，“还原”。 2. 编写代码：在通用生命段中输入程序语言，如下：dim x as string 点击Text编写如下程序： Private sub

2012-05-29 20:26:26 421

原创计算机

Private Function judge(N As Integer) As Boolean judge = (N Mod 17 = 0 And N Mod 37 = 0) End Function Private Sub Form_Click() Dim i As Integer For i = 1000 To 2000 If judge(i) Then Print

2012-05-29 20:24:14 188

原创生成并运行按钮

Dim WithEvents mytextbox As VB.TextBox Private Sub Command1_Click() Dim mytextbox As VB.TextBox Set .mytextbox = Me.Controls.Add("VB.textbox", "mytextbox") mytextbox Move.Me.commandleft - 1500 my

2012-05-29 20:22:48 245

原创排序

Dim a(1 To 4, 1 To 4) As Integer Private Sub Command1_Click() p = "" For i = 1 To 9 For j = 1 To 10 - i If a(j) t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next Next For i = 1 T

2012-05-29 20:19:03 187

原创判断生日是星期几

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

2012-05-29 20:18:09 301

原创生成随机数

一·实验目的生成随机数。二·实验内容 1. 建立窗体，画出三个label，分别写上：“请输入随机数下界”，“生成随机数上界”，“生成的随机数”。画出一个command按钮，输入“生成随机数”。画出三个text窗体。 2. 编写程序如下： Private sub command1_click() Dim m as integer Dim n as integer

2012-05-29 20:17:15 304

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

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

2012-05-29 20:15:23 528

原创随机生成十个不同的数

Private Sub Command1_Click() Me.FontSize = 18 Dim a(10) As Integer Dim mystr As String Dim printstr As String a(i) = Int(Rnd() * 100 + 1) mystr = "不要" For i = 2 To 10 t = Int(Rnd() * 10

2012-05-29 20:14:07 457

原创显示各位小数

1. 1显示各位小数做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个命令按钮，将其属性值设置为“显示”点击显示个位，十位，百位。 2. 编写程序代码: 双击命令按钮，输入: Dim star as string Star=text1.text Text2.text=left(stra,1) Tex

2012-03-31 20:12:59 387

原创画图

1. 随机生成不同的图形在窗体上画一个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 =

2012-03-31 20:10:47 319

原创单精度数据

选用单精度数据，是说你让电脑用较少的空间存放数据，表现为精确到小数点后5位，并且第五个小数还是四舍五入得到的，如果你用双精度定义数据，是说你用较多的空间存放同一个数，表现为小数点后较多的位数，同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。用单精度型数据和双精度型数据表示13.25。单精度表示13.25： (13.25)10=1*101+3*100+2*10-1+2*

2012-03-31 20:07:59 1135

回到学校里，龙年的第一节课照常开课了，我们的第一节课是计算机课，换了新的老师，老师讲了很多，对我最大的感触是老师说的一句话，我们的大脑就是一个大容量的U 盘，最多也就是一部i phone ，我们学习知识根本就是强记忆，从不是理解后记住的，老师说一部i phone 还5000块，而我们的价值难道只有一千左右的价值吗？我还看了那个老师说的贴吧，那里说学生毕业后的工资也就只有几百块而已，连最起码的生活保

2012-03-31 20:06:14 290

dubaide的专栏