- 博客(6)
- 收藏
- 关注
原创 请输入您的出生日期,下面的程序告诉你出生的是周几
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 900
原创 求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 719
原创 两位数的乘法
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 Byt
2012-03-28 11:30:20 369 1
原创 VB实验报告
VB实验报告一 一. 实验目的 为了学习到真正的运用VB知识做题,要学会运用如何随机生成随机数,大小写的转换,生成个位数。 二. 实
2012-03-26 20:36:03 1300
原创 VB课感受
上了几周的VB课,我发现自己对VB还是没什么感觉。我觉得这门课好难好难,我很认真的听老师您讲课,可是我还是听不懂。上课的时候我几乎听不懂老师您在说什么,我对计算机真是没辙,每次一到星期三我就害怕,因为要上VB,因为我听不懂让我很痛苦。我很担心这门课我期末考试怎么过?VB怎么就那么难呢?
2012-03-26 19:01:35 455
原创 VB
VB实验报告 一:试验目的: 1 利用vb程序设计语言制作随机图形 2 利用vb程序设计语言制作动画 二:实验内容: 1先进行界面分布和相应的属性设置 2编写代码如下: 1,Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Private Sub Comman
2012-03-26 18:54:28 321
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人