![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
kSimpleCoder
Stay hungry , Stay foolish.
展开
-
你出生那天是星期几
Private Sub Command1_Click() Dim year As Integer Dim month As Integer Dim day As Integer Dim s As Integer Dim birthday As Date year = Int(Val(Text1.Text原创 2012-05-18 08:31:57 · 701 阅读 · 0 评论 -
学习VB的感想
今天学习了一门新的计算机语言VB,真的很高兴,这让我进一步了解了计算机的奥秘,原来计算机可以这样用,原来VB这么有用,原来我认为很难的东西计算机可以算得那么快那么好,真的很喜欢这门功课,当我看到自己亲自做成一个程序以后,我非常激动,我决定以后努力学习这门功课,学好这门功课,因为我知道,生活在这个信息时代,计算机是那么的重要,公司,银行,学校,乃至家庭,计算机已经成为了人们生活的一部分,我也深知,作原创 2012-05-18 08:25:30 · 623 阅读 · 0 评论 -
两位数乘法
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 Byte原创 2012-05-18 08:28:14 · 281 阅读 · 0 评论 -
十个数从大到小排列
Private Sub Form_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(0) = Int(InputBox("请输入第" & i & "个整数:")) InsArrayAndSort(a, i - 1) '在输入的时候就先进行从小到大排序原创 2012-05-18 08:43:37 · 1317 阅读 · 0 评论 -
0到2000内能同时被17和37整除的数
dim i as longfor i=0 to 2000 if (i mod (17* 37))=0 then print i end if next i这个小程序是自己编的,运用了for....next,if...then...else...end if.点鼠标的时候就会输出两千以内能同时被17和37整除的数。其实这个程序还有一点不足,就是原创 2012-05-18 08:35:53 · 399 阅读 · 0 评论 -
输出三个数中的最大值
dim a as integer,b as integer,c as integer,max as integer a=Val(text1.text)b=Val(text2.text)c=Val(text3.text)Max = IIf(a > b,a,b)Max = IIf(Max > c, Max,c)print "最大数为:" & Max今天看了一会儿书发现用II原创 2012-05-18 08:40:21 · 1077 阅读 · 0 评论