- 博客(6)
- 收藏
- 关注
RSS订阅原创 请输入您的出生日期，下面的程序告诉你出生的是周几
Private Sub Command1_Click() Dim year As Integer Dim month As Integer Dim day As Integer Dim n As Integer Dim birthday As Date year = I
2012-04-18 19:58:56
904
原创 求100以内的素数的和
Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n If IsPrimer(n) s = s + n End If n = n + 1 Loop
2012-04-18 19:56:26
721
原创 两位数的乘法
Option Base 1Private 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 Byt
2012-03-28 11:30:20
369
1
原创 VB课感受
上了几周的VB课，我发现自己对VB还是没什么感觉。我觉得这门课好难好难，我很认真的听老师您讲课，可是我还是听不懂。上课的时候我几乎听不懂老师您在说什么，我对计算机真是没辙，每次一到星期三我就害怕，因为要上VB，因为我听不懂让我很痛苦。我很担心这门课我期末考试怎么过？VB怎么就那么难呢？
2012-03-26 19:01:35
456
原创 VB
VB实验报告 一：试验目的：1利用vb程序设计语言制作随机图形2利用vb程序设计语言制作动画二：实验内容：1先进行界面分布和相应的属性设置2编写代码如下：1，Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Comman
2012-03-26 18:54:28
321
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人