dubaide-优快云博客

原创比较两个数的较大数

Private Sub Command1_Click()Dim a As IntegerDim b As Integera = 78b = 489 If a > b ThenPrint aElsePrint bEnd IfEnd Sub

2012-05-29 20:33:24 233

原创对随机数据排序

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

2012-05-29 20:31:53 273

原创三个数的比较大小

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim max As IntegerDim 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 276

原创 100以内的素数之和

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

2012-05-29 20:29:18 411

原创 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 477

原创大小写转换

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

2012-05-29 20:26:26 398

原创计算机

Private Function judge(N As Integer) As Booleanjudge = (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

2012-05-29 20:24:14 172

原创生成并运行按钮

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

2012-05-29 20:22:48 227

原创排序

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

2012-05-29 20:19:03 169

原创判断生日是星期几

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

2012-05-29 20:18:09 279

原创生成随机数

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

2012-05-29 20:17:15 282

原创随机生成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个整数Randomizep = ""For i = 1 To n '生成n个整数Do

2012-05-29 20:15:23 479

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

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

2012-05-29 20:14:07 425

原创显示各位小数

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

2012-03-31 20:12:59 354

原创画图

1. 随机生成不同的图形在窗体上画一个commandbutton按钮，双击按钮编写程序语言其语言如下：Private Sub Command1_Click()ShowMe.Scale (0, 0)-(18, 8)Me.AutoRedraw = TrueMe.DrawMode = 2Circle (3, 4), 3, vbRedMe.AutoRedraw =

2012-03-31 20:10:47 298

原创单精度数据

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

2012-03-31 20:07:59 1100

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

2012-03-31 20:06:14 272

dubaide的专栏