超过字数限制了。。
vb程序,求代码注释,谢谢啦
Model1代码如下：Public x As Integer \/\/定义整型变量x Public y As Integer \/\/定义整型变量y Sub S1() \/\/过程S1 x = 1 \/\/为全局变量x赋值 S2 \/\/执行S2过程 End Sub Sub S2() \/\/过程S2 y = 10 \/\/为全局变量y赋值 Form1.Show \/\/显示窗体名为Form1的窗体 End Sub Model2的代码...
vb如何注释下面程序,急用,希望高手帮帮呀,谢谢
Private Sub Command1_Click()Dim y%, m%, d% '定义年、月、日变量 y = Val(InputBox("请输入年份!"))'获取当前哪年 m = Val(InputBox("请输入月份!"))'获取当前是几月份 d = Val(InputBox("请输入日"))'获取当前是几号 MsgBox "这是今年的第" & DateDiff("d", DateSerial(y,...
vb程序 求代码注释,谢谢
Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single) '窗口鼠标按下事件 If Button = 1 Then ‘当你按下鼠标左键时 Text1.Text = InputBox("请输入要添加的项目") '这里要求你输入文本，并传给Text1 List1.AddItem Text1.Text List1控...
vb程序 求代码注释 谢谢
Dim ch As String 定义 Text1 = "" 置空文本框 Open App.Path & "\\in5.dat" For Input As #1 用“读”型打开程序目录下的IN5.DAT文件 For k = 1 To 5 For循环 Input #1, ch 读入至字符串CH athlete(k) = ch 给变量赋值 Text1 = Text1 & ch & " " 文本框更改...
急求VB程序注释!
RsBuMen.MoveNext '向后移一行,没有此行代码程序死循环 Wend SqlBuMen = "select distinct 线路名称 from 线路管理表"'再次读取 Set RsBuMen = conn.Execute(SqlBuMen) '再次打开 While Not RsBuMen.EOF '同上 Combo3.AddItem Trim(RsBuMen("线路名称"))RsBuMen.MoveNext Wend Set adoPrimaryRS ...
VB的程序语句作个注释及答疑
Private Sub Form_Load()Dim regstr As String ’定义 登录名字符串 储存登录用户名 regstr = GetSetting ("expire", "startdate", "date", "notexist") ’通过getsetting方法将登录的用户名储存至regstr，参数分别为 开始日期 日期 是否存在 和expire If regstr = "notexist" Then ...
vb程序 求解 求代码注释 谢谢
Private Sub Command1_Click()'按钮单击过程 X=5:Y=3 '初始化 Call proc(X,Y) '呼叫子程序。2个整形传值参数，Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer)X=a*a 'a=5,所以x=25 Y=b+b 'y=3，所以y=6 End Sub 程序运行后...
麻烦给这一部分的vb程序加一下注释
Then‘每8个元素为一组，下面有一个空行 Picture1.Print这个就是空白行。End If Next i --- '设计程序将保存在数组s中的100个任意数按降序排序，【程序不是降序，而是升序】'并将排序结果按紧凑格式打印在Picture1中，要求每行打印10个数【程序不是10个一打印，而是8个】...
一段VB程序的注释..
第一个Sub：设置进度条，使进度条显示进度 第二个Sub：使浏览器加载完（起码Title出来时）将输入网址的下拉框的内容设为浏览器的当前地址。
VB程序注释
就用了几个简单的字符函数 left(str,n) 从str左边截取n个字符 right(str,n)从str右边截取n个字符 mid(str,m,n)从str第m个字符开始截取n个字符 Replace(s, " ", "") 字符替换函数，用null替换字符是的空格
