- 博客(7)
- 收藏
- 关注
RSS订阅原创 自己设计一个计时器代码
Private Sub Command1_Click() Timer1. Enabled=True Timer1.Interval=100 End Sub Private Sub Command2_click Form1.Cls End Sub Private Sub Command3_() Timer1=False End Up
2012-06-11 19:29:22
498
原创 用VB设计出生年月的程序代码
Private Sub command1_click() Dim year as Integer Dim month as Integer Dim day as Integer Dim n as Integer Dim Birthday as Dete year=Int(Val(text1.text)) month=Int(Val(text2.text)) day=Int(Val(
2012-06-11 19:26:21
1244
原创 素数程序设计
Option Explicit Dim i, j, k As Integer Dim isS As Boolean Private 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
349
原创 计算税率
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
222
原创 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
316
原创 设技求圆的面积和周长
现在各门课程都开始进入复习阶段，当然咱们的VB也不能落后呀。以前老师部置的作业我没能及时提交真是。。。。。。呵呵，那就从现在开始吧，还是希望丁老师不要责怪才好呀。 Private Sub Command1-Click() Dim r as Single Dim s as Single Dim l as Single Const PI = 3.14 r
2012-06-04 18:09:08
468
原创 求100内的奇数的和
Private Sub Form_Load() Dim i As Integer Dim s As Integer Show For i = 1 To 100 Step 2 s = s + i Next i Print "1~100奇数累加和为:"; s
2012-06-01 09:14:02
718
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人