代码多不好看的话
封装成过程或函数
举个简单例子：
Private Sub Form_Load()
Call myTest '调用过程
End Sub
Private Sub myTest() '自定义过程
MsgBox "欢迎！"
End Sub
以上代码与以下代码效果相同：
Private Sub Form_Load()
MsgBox "欢迎！"
End Sub
建议你看一下有关自定义函数,过程相关的资料
查MSDN也行
#Region "标题"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("提示")
'
'
'。。。。
End Sub
'
'。。。
#End Region本回答被提问者采纳
C#的编译器2，3G当然功能强大
你可以把函数封装成.dll文件，这样就会减少代码量了，且易于维护
不同的模块包含不同的调用函数
你可以通过将功能细分，建立多个模块，来减少主程序的代码本回答被网友采纳
Vb问题 求大神指点
4、C Show 是显示窗体 UnLoad 是卸载窗体 Load 是加载窗体 Hide 是隐藏窗体 6、D 身份证 6位地区码+8位出生日期+3位流水+1位校验码 ①身份证位数比较长 ②校验码可能出现X 8、A ①变量名不能包含+ - * \/ ！@ # ￥ ?小数点 等字符，且长度不能超过255 所以 B 是错误的 ②变量必须是...
一道vb 题目 请高手解答
本文提供了一段VB代码，用于解决特定问题。代码采用了直接方法，即逐数检查，筛选出符合条件的数字对，并在主函数Form_Load中进行调用。通过将结果存储在变量result中，最终通过MsgBox展示。代码的核心在于检查数字对中的重复性，通过定义函数noRepeated来实现。在noRepeated函数中，我们首先初始化一个布尔变量...
VB求助,求高手帮忙解答,解答部分已经注明。
1、这里是变量a，不是数组。但根据后面的程序来看，这里应该是数组定义，应该是a（10）括号里的数大于10即可。2、没错，是循环10次，输入10次 3、对啊，没错。输入的内容存入v中 4、这个IsNumeric函数就是判断是否为数字的 5、是的，但只有当v为数字时才会存入a（）中 6、这里不仅仅是跟后面的...
新手问几个vb的数组问题,大神求解
1、数组就来用来保存一个序列的同类型的类型数据。2、你没看到前面的定义？Dim S As long，这个S是一个变量，初始就是0啊。如果是数字，变成1时你又要改，变成2又要改程序，用变量的话可以自动，不用改程序。3、A(S-1)表示最后一个数组的内容，因为是先 S＝S+1，运行到这里再－1的话，正...
vb上的问题
答案是D 这个题，考点有这么几点，1、vb数据定义类型的缩写形式是什么？2、vb定义数据后，初始值是什么？3、vb中+，-，>符号是算术符号，还是比较运算符，算术符号和比较运算符各有哪些？先理解VB定义类型的缩写：（=integer） 短整型 & （=long） 长整型 ！ （=single ） 单精度浮点型 #...
VB6.0的几个问题!高手请进!
问题一 没条件意味着出错，要不就是死循环，在这他只意味着运行一次 问题二 CLng 函数总是将其四舍五入为最接近该数的偶数 如, 0.5 四舍五入为 0
VB大神 求教问题
首先说明三点;（1）启动程序后，Hscroll的值value=1 （2）当在滚动条右端点箭头时，每点一次Hscroll的值value加1 （3）启动程序后，y的初值是2 再来看程序，当点击滚动条右端点箭头时，触发Private SubHScroll1_Change()程序，只有三句：'Dim y As Single '② y = y + f1(HScroll1....
【高分】5道VB程序题目,有劳各位帮忙解答一下
1.Private Sub Form_Click()x = 5 For i = 1 To 20 Step 2 x = x + i \\ 5 Next i Print x End Sub 单击窗体,将5作为初始值给x,然后以i为计数进行循环,从i=1循环到i=20,每循环一次i+2(这个是关键),就是一共循环10次,这10次中i分别为1,3,5,7,9,11,13,15,17,19 每次...
高手进!VB问题
首先，VB里的true默认的值为-1，false的值默认为0 VB会把a=0当作逻辑运算，而不是赋值运算（其他语言一般把==作为逻辑运算，=作为赋值）弄清楚这一点之后，这些代码就好理解了：当a=0时 b = a + (a = 0)这条表达式的实际意义是b = a + true 之前提到true的值默认为+1，所以b = 0-1=...
关于VB编程的问题(菜鸟提问,高手回答)
Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。大于 0 序列中的下一个随机数。等于 0 最近生成的数。省略 序列中的下一个随机数。说明 Rnd 函数返回小于 1 但大于或等于 0 ...
