- 博客(22)
- 收藏
- 关注
RSS订阅原创 生成并运行按钮
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:05:31
196
原创 计算机
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:04:09
191
原创 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 Number2() As Byte
2012-05-29 20:03:07
463
原创 比较三个数的大小
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:01:30
315
原创 对随机数进行排序
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 19:59:37
365
原创 比较两个数的较大数
Private Sub Command1_Click()Dim a As IntegerDim b As Integera = 78b = 489 If a > b ThenPrint aElsePrint bEnd IfEnd Sub
2012-05-29 19:58:42
264
原创 随机生成10个不重复的整数
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()Form_LoadEnd Sub Private Sub Form_Load() Dim p As String Randomize p = "" For i = 1 To 10 Do X = Int(
2012-05-29 19:57:29
871
原创 字母转换
Dim x As StringPrivate Sub Command1_Click()Text1.Text = UCase(x)End SubPrivate Sub Command2_Click()Text1.Text = LCase(x)End SubPrivate Sub Command3_Click()Text1.Text = xEnd SubPriv
2012-05-29 19:56:14
168
原创 求圆面积和周长
Private Sub Command1_Click()Dim r As IntegerDim s As IntegerDim l As Integer Const PI = 3.14 r = Val(Text1.Text) s = PI * r * r l = 2 * PI * r Text2.Text = Str(l) Text3.Text = Str(s)
2012-05-29 19:55:17
510
原创 计算最大值最小值
数据统计计算。通过inputbox输入10个正整数，将这些正整数存放于一个数组内，求出数组中的最大值、最小值和平均值，并输出数组中的全部数据。（1）界面设置 画两个按钮（2）属性设置 Command1属性改为“输入数据”，command2改为“显示并统计”(3)编写代码 1、在通用声明段中，声明模块级的变量 Option Base
2012-05-29 19:52:44
337
翻译 排序
Dim a(1 To 4, 1 To 4) As IntegerPrivate Sub Command1_Click() Form_LoadEnd SubPrivate Sub Command2_Click() p = "" For i = 1 To 9 If a(j) t = a(j): a(j) = a(j + 1): a(j + 1) =
2012-05-29 19:51:23
160
原创 随机生成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-23 23:56:30
518
原创 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-23 23:53:53
238
原创 判断生日是星期几
Function myweekdayName(weekofday As Integer) As StringSelect Case weekofday case1 myweekdayName = "星期日" Case2 myweekdayName = "星期一" case3 myweekdayName = "星期二"
2012-05-23 23:52:11
502
原创 随机生成十个不同的数
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-23 23:50:31
305
原创 温标转换
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-23 23:48:13
462
原创 求最大公约数
Private Sub Command1_Click()x = Val(Text1.Text)y = Val(Text2.Text)If x * y = 0 Then MsgBox "两分数都不能为0！", "错误！" Exit Sub End If If x Do r = x Mod y If r = 0 Then Exit Do x =
2012-05-23 23:45:08
189
原创 计算机
数据统计计算。通过inputbox输入10个正整数，将这些正整数存放于一个数组内，求出数组中的最大值、最小值和平均值，并输出数组中的全部数据。（1）界面设置 画两个按钮（2）属性设置 Command1属性改为“输入数据”，command2改为“显示并统计”(3)编写代码 1、在通用声明段中，声明模块级的变量 Option Base
2012-04-10 22:42:53
158
原创 乘法
Private Sub Command1_Click()Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numbe
2012-03-28 11:42:03
169
原创 画图
1.随机生成不同的图形 在窗体上画一个commandbutton按钮，双击按钮编写程序语言其语言如下：Private Sub Command1_Click()ShowMe.Scale (0, 0)-(18, 8)Me.AutoRedraw = TrueMe.DrawMode = 2Circle (3, 4), 3, vbRedMe.AutoRedraw
2012-03-27 20:35:29
142
原创 计算机
实验报告 系别：11级教育学院班级：教育学2班姓名：任亚茹日期：2012.03.20 一．实验目的二．实验内容1. 作业一：显示各位数做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个命令按钮，将其属性值设置为“显示”点击显
2012-03-27 20:34:23
211
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人