- 博客(7)
- 收藏
- 关注
原创 vb
Private Sub Command1_Click()Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numbe
2012-05-21 20:58:54 263
原创 vb
Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Text1.Textb = Text2.TextIf a > b ThenPrint aElsePrint bEnd IfEnd Sub第一个 Private Sub Command1_Click()Dim a
2012-05-21 20:58:11 168
原创 vb
Private Sub Command1_Click()If Trim(Text1.Text) = "" Then Text1.Text = "0"'调用自定义函数Label3.Caption = transth(Val(Text1.Text).true)Label4.Caption = "摄氏度"Label5.Caption = "华氏度"End SubPriva
2012-05-21 20:56:42 240
原创 能动的图片
Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd SubPrivate Sub Command3_Click()Timer1 = FalseEnd SubPrivate Sub Form_MouseDown(Button
2012-04-05 15:17:00 367
原创 第一节vb课
vb,刚开始听时不知道这门课是关于什么,抱着激动与好奇的心情去上第一节vb课,后来我知道vb是计算机程序设计的,因为是第一节课,我们刚刚接触这门课,所以第一步是模仿,老司机给出我们程序,然后上机做,整个过程出现了一些问题,例如:编译错误和缺少等,所以在学习vb是要认真。
2012-03-28 11:32:05 458
翻译 两位数的乘法程序设计
Private Sub Command1_Click()Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numberleng
2012-03-28 11:23:08 525
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人