2023-10-07 04:00来源：m.sf1369.com作者：宇宇
在VB中，16进制数可以使用以下两种方式表示：
使用前缀 "0x" 或 "Hex" 表示法
例如，要将变量 a 赋值为十六进制数 FFF，可以使用以下代码：
vb
复制
a = 0xFF
或
vb
复制
a = "FFF"
使用数字表示法
例如，要将变量 b 赋值为十六进制数 1A，可以使用以下代码：
vb
复制
b = &H1A
其中，&H 是十六进制前缀，表示后面的数字是十六进制数。
计算器当前显示值，作为计算结果唯一数值存储变量，当输入第一个数，点击二元运算符时，输入其中。然后，输入另一个数。当等于按下，则直接计算结果并存入其中
循环结构的基本概念:循环结构是指在程序中需要反复执行某个功能而设置的一种程序结构。它由循环体中的条件，判断继续执行某个功能还是退出循环。根据判断条件,循环结构又可细分为以下两种形式:先判断后执行的循环结构和先执行后判断的循环结构。
VB的基本语法之循环结构
VB班含有两种循环结构，一种是计数循环，一种是条件循环。其中，条件循环包括有：直到型循环和当型循环。
（一）计数循环
For-Next循环是计数循环，常用于循环次数已知的情况。
（二）条件循环之直到型循环
Do-Loop循环具有两种语法结构，分别是前测型和后测型循环。引用本人对于直到型循环的总结的一句话:直到型循环就是程序不断执行，直到不满足限定条件为止。
要计算一组数的平均值，你可以使用VB中的循环来遍历这组数，并将它们相加。然后，将总和除以数的个数来得到平均值。你可以使用一个变量来存储总和，并使用另一个变量来计算数的个数。在循环结束后，将总和除以数的个数，并将结果存储在一个变量中。最后，你可以使用MsgBox函数来显示平均值。这样，你就可以得到一组数的平均值。
在Visual Basic中，可以使用Search函数来查找一个字符串中的子字符串。Search函数有三种用法：
1. 语法：Search(string1, string2, [start], [compare])
这种用法可以用来在字符串string1中搜索子字符串string2，并返回string2在string1中的位置。start是可选参数，指示搜索应从字符串string1的哪个位置开始，默认为1。compare也是可选参数，指示搜索时是否进行大小写敏感的比较，默认值为binary。
2. 语法：Search(string1, anyarray, [start], [compare])
这种用法可以用来在数组anyarray中搜索元素，并返回第一个匹配的元素的位置。start和compare参数的含义与上述相同。
3. 语法：Search(string1, anyarray, [start], [compare], [textbyte])
这种用法与上述第二种用法相同，只是多了一个textbyte参数用于指定搜索比较方法。
请注意，Search函数的返回值是在string1（或anyarray）中找到子字符串（或元素）的位置，如果找不到，将返回。
如果参与整除或取模运算的两个数都是整数，那么问题就很简单，直接算就行了，比如：5 \ 2 = 25 Mod 2 = 1但是如果参与运算的数有小数，那么问题就稍微复杂一些，VB会先把小数取整后再运算，而取整采用的并不是我们熟知的“四舍五入”原则，而是“四舍六入五成双”原则（我这里不做解释了，自己），比如：5.5 \ 2.5 = 6 \ 2 = 35.5 Mod 2.5 = 6 Mod 2 = 0觉得很奇怪是吧？5.5会进位成6，2.5却不进位成了2。其实这就是“四舍六入五成双”的精髓所在，在取样数量足够多的情况下，“四舍五入”会使进位的数比不进位的数更多，而“四舍六入五成双”则可以保持平衡。
首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():
Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开
'文件夹数和名称
Dim sf As String
sf = Dir(pathname, vbDirectory) '获取第一个目录名
foldernum = 0
Do While sf <> ""
' 跳过当前的目录及上层目录
If sf <> "." And sf <> ".." Then
If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
If treeflag = 0 Then
Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表
ElseIf treeflag = 1 Then
Text2 = Text2 & Treestr & sf & vbCrLf
ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用
Text2 = Text2 & Treestr & sf & vbCrLf
folderlist pathname + sf, treeflag
filelist pathname + sf, treeflag
End If
foldernum = foldernum + 1 '统计文件夹数目
End If
End If
sf = Dir() ' 查找下一个目录
Loop
If treeflag = 0 Then
If foldernum <> 0 Then
Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf
Else
Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf
End If
ElseIf foldernum <> 0 Then
Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf
End If
End Function
Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开
'文件数和名称
Dim a As String
a = Dir(pathname & "/*.*")
filenum = 0
Do While a <> ""
If treeflag = 0 Then
Text2 = Text2 & a & vbCrLf
Else
Text2 = Text2 & Treestr & a & vbCrLf
End If
filenum = filenum + 1 '统计文件数目
a = Dir
Loop
If treeflag = 0 Then
If filenum <> 0 Then
Text2 = Text2 & "======共有" & filenum & "个文件======"
Else
Text2 = Text2 & "======无文件信息======"
End If
End If
End Function
回答如下：在VB中，if语句用于根据某个条件确定要执行的代码。if语句的基本语法如下：
```
If condition Then
' 执行的代码
End If
```
在if语句中，condition是一个布尔表达式，如果它的值为True，则执行if语句后面的代码块。否则，跳过if语句中的代码块，继续执行程序。
在if语句中，可以使用各种运算符和函数来计算布尔表达式。例如，可以使用比较运算符（如<、>、=、<>等）对两个值进行比较，或使用逻辑运算符（如And、Or、Not）将多个布尔表达式组合在一起。还可以使用函数（如Len、IsNumeric等）来检查变量的值是否满足特定的条件。
例如，以下if语句将检查变量x是否大于0：
```
If x > 0 Then
MsgBox "x is positive"
End If
```
如果x的值大于0，则显示一个消息框，否则跳过if语句中的代码块。
总之，if语句可以根据各种条件计算来确定要执行的代码。
在窗体最上面,所有过程之外,定义一个变量, 大概如下 option explicit dim n as integer '统计个数 private sub menu_New() n=n+1 '新建窗体 '子窗体.caption = "第 " & cstr(n) & "个窗体" end sub
VB 循环语句
一、Do...Loop 语句
当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。
语法
Do [{While | Until} condition][statements][Exit Do][statements]
Loop
或者可以使用下面这种语法：
Do[statements][Exit Do][statements]
Loop [{While | Until} condition]
Do Loop 语句的语法具有以下几个部分：
部分描述condition可选参数。数值表达式或字符串表达式，其值为 True 或 False。如果condition 是 Null，则 condition 会被当作 False。statements一条或多条命令，它们将被重复当或直到 condition 为 True。
说明
在 Do...Loop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出 Do...Loop 循环。Exit Do 通常用于条件判断之后，例如 If...Then，在这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。
如果 Exit Do 使用在嵌套的 Do...Loop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。
Dim Check, Counter Check = True: Counter = 0 ' 设置变量初始值。 Do ' 外层循环。 Do While Counter < 20 ' 内层循环。 Counter = Counter + 1 ' 计数器加一。 If Counter = 10 Then ' 如果条件成立。 Check = False ' 将标志值设成 False。 Exit Do ' 退出内层循环。 End If Loop Loop Until Check = False ' 退出外层循环。
二、While...Wend 语句
只要指定的条件为 True，则会重复执行一系列的语句。
语法
While condition[statements]
Wend
While...Wend 语句的语法具有以下几个部分：
部分描述condition必要参数。数值表达式或字符串表达式，其计算结果为 True 或False。如果 condition 为 Null，则 condition 会视为 False。statements可选参数。一条或多条语句，当条件为 True 时执行。
说明
如果 condition 为 True，则所有的 statements 都会执行，一直执行到 Wend 语句。然后再回到 While语句，并再一次检查 condition，如果 condition 还是为 True，则重复执行。如果不为 True，则程序会从 Wend 语句之后的语句继续执行。
While...Wend 循环也可以是多层的嵌套结构。每个 Wend 匹配最近的 While 语句。
提示 Do...Loop 语句提供了一种结构化与适应性更强的方法来执行循环。
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。
Dim Counter Counter = 0 ' 设置变量初值。 While Counter < 20 ' 测试计数器的值。 Counter = Counter + 1 ' 将计数器的值加一。 Wend ' 当 Counter > 19 时则循环终止。 Debug.Print Counter ' 在“立即”窗口中显示数字 20。
三、For...Next 语句
以指定次数来重复执行一组语句。
语法
For counter = start To end [Step step][statements][Exit For][statements]
Next [counter]
For Next 语句的语法具有以下几个部分：
部分描述counter必要参数。用做循环计数器的数值变量。这个变量不能是 Boolean 或数组元素。start必要参数。counter 的初值。End必要参数，counter 的终值。Step可选参数。counter 的步长。如果没有指定，则 step 的缺省值为 1。Statements可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。
说明
step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：
值循环执行，如果正数或 0counter <= end负数counter >= end
当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从 Next 语句之后的语句继续执行。
提示 在循环中改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。
循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。 Exit For经常在条件判断之后使用，例如 If...Then，并将控制权转移到紧接在 Next 之后的语句。
可以将一个 For...Next 循环放置在另一个 For...Next循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。下面的体系结构是正确的：
For I = 1 To 10 For J = 1 To 10 For K = 1 To 10 ... Next K Next J Next I
注意 如果省略 Next 语句中的 counter，就像 counter 存在时一样执行。但如果 Next 语句在它相对应的 For 语句之前出现，则会产生错误。
For...Next 语句示例
本示例使用 For...Next 语句创建一个字符串，其内容为由 0 到 9 的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当作循环计数器，每循环一次，变量值减一。
Dim Words, Chars, MyString For Words = 10 To 1 Step -1 ' 建立 10 次循环。 For Chars = 0 To 9 ' 建立 10 次循环。 MyString = MyString & Chars ' 将数字添加到字符串中。 Next Chars ' Increment counter MyString = MyString & " " ' 添加一个空格。 Next Words
1. 是：Do循环、For循环和While循环。2. Do循环是一种先执行循环体再判断条件的循环结构，适用于至少要执行一次循环体的情况。For循环是一种指定循环次数的循环结构，通过设置循环变量的初始值、终止值和步长来控制循环次数。While循环是一种在满足条件时重复执行循环体的循环结构，适用于不确定循环次数的情况。3. 除了这三种基本循环，VB还提供了其他循环结构的扩展，如Do While循环、Do Until循环、For Each循环等，可以根据具体需求选择合适的循环结构来实现不同的功能。这些循环结构的灵活运用可以提高程序的效率和可读性。
