- 博客(19)
- 收藏
- 关注
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:41:30
169
原创 判断出生日期是周几
Function myweekdayName(weekofday As Integer) As StringSelect Case weekofday case1 myweekdayName = "星期日" Case2 myweekdayName = "星期一" case3 myweekdayName = "星期二"
2012-05-29 20:26:50
354
原创 比较两个数的大小
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:21:38
183
原创 对随机数据排序
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:20:58
167
原创 三个数比较大小
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:20:20
229
原创 Option Base 1
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:16:34
444
原创 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:13:12
276
原创 排序
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-28 20:54:37
149
原创 生成能动图形
首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程Dim gAs BooleanDim xAs Long 再双击开始运动按钮，编写程序语言PrivateSub Command1_Click()Timer1.Enabled= TrueEnd Sub 再双击窗体，
2012-05-28 20:53:44
193
原创 出生日期
Private Sub Command1_Click()Dim year As IntegerDim month As IntegerDim day As IntegerDim dayofweek As IntegerDim birthday As Dateyear = Int(Val(Text1.Text))month = Int(Val(Text2.Text))
2012-05-28 20:52:21
254
原创 随机生成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(Rnd * 90) +
2012-05-28 20:51:47
700
原创 字母转换
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 SubPrivat
2012-05-28 20:50:42
157
原创 生成指定范围的随机整数
Private Sub Command1_Click()Dim m As IntegerDim n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = n + Int(Rnd * (m -n + 1))End SubPrivate Sub Form_Load() Randomize '对随机数发生
2012-05-28 20:49:49
257
原创 求圆的面积和周长
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)E
2012-05-28 20:48:56
421
原创 含有简单代码的画圆程序
Private Sub Command1_Click()Form1.Circle (1200, 1500), 800, vbBlueText1.Text = "画一个实心圆"End SubPrivate Sub Command2_Click()Form1.ClsText1.Text = "清除实心圆"End SubPrivate Sub Command3_Click
2012-05-28 20:47:47
1447
原创 数据统计计算
通过inputbox输入10个正整数，将这些正整数存放于一个数组内，求出数组中的最大值、最小值和平均值，并输出数组中的全部数据。（1）界面设置 画两个按钮（2）属性设置 Command1属性改为“输入数据”，command2改为“显示并统计”(3) 编写代码 1、在通用声明段中，声明模块级的变量 Option Base1 Dim a(10
2012-05-28 20:46:40
267
原创 随机数
Private Sub Form_Load()Dim a(1 To 10) As IntegerRandomize p= "" 'p用来显示随生成的10个整数For i = 1 To 10 Do X = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数 yes = 0 '用来判断生成的数要还是不要，0表示要，1表示不要
2012-05-28 20:41:10
255
原创 Vb
Private Sub Command1_Click() Dim a() As IntegerDim mystr As StringDim printstr As Stringn = InputBox("请输入一个正整数n,n>=i")ReDim a(1 To n) a(1) = Int(Rnd() * 100 + 1)
2012-05-28 20:40:06
163
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人