- 博客(7)
- 收藏
- 关注
原创 自己设计一个计时器代码
Private Sub Command1_Click() Timer1. Enabled=True Timer1.Interval=100End SubPrivate Sub Command2_click Form1.Cls End SubPrivate Sub Command3_() Timer1=False End Up
2012-06-11 19:29:22
479
原创 用VB设计出生年月的程序代码
Private Sub command1_click()Dim year as IntegerDim month as IntegerDim day as IntegerDim n as IntegerDim Birthday as Deteyear=Int(Val(text1.text))month=Int(Val(text2.text))day=Int(Val(
2012-06-11 19:26:21
1176
原创 素数程序设计
Option ExplicitDim i, j, k As IntegerDim isS As BooleanPrivate Sub Form_Load() Show For i = 1 To 100 isS = True For j = 2 To Int(i ^ 0.5) If i Mod j = 0
2012-06-11 19:23:52
330
原创 计算税率
Private Sub Command1_Click() Dim w As Long Dim y As Long Dim f As Long w = Val(Text1.Text) y = w - 800 Select Case y Case Is f = y * 5 \ 100 C
2012-06-11 19:19:54
205
原创 VB程序设计
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-06-05 13:22:33
295
原创 设技求圆的面积和周长
现在各门课程都开始进入复习阶段,当然咱们的VB也不能落后呀。以前老师部置的作业我没能及时提交真是。。。。。。呵呵,那就从现在开始吧,还是希望丁老师不要责怪才好呀。Private Sub Command1-Click()Dim r as SingleDim s as SingleDim l as Single Const PI = 3.14 r
2012-06-04 18:09:08
424
原创 求100内的奇数的和
Private Sub Form_Load()Dim i As IntegerDim s As IntegerShowFor i = 1 To 100 Step 2s = s + iNext iPrint "1~100奇数累加和为:"; s
2012-06-01 09:14:02
688
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人