VB编程技术笔记

潮汐退涨月冷风霜

已于 2024-03-26 07:43:46 修改

阅读量712

点赞数 1

文章标签：笔记

于 2024-03-11 21:27:08 首次发布

本文链接：https://blog.youkuaiyun.com/2301_79376014/article/details/136631396

版权

本文详细介绍了VisualBasic中的数据类型（包括整数、浮点数、字符串等）、变量声明、重要函数如Asc/Chr、以及基本的输入输出、分支和循环结构、数组使用、过程和函数，以及控件如Label、Timer、TextBox等的实例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、数据类型及变量声明

Dim a as Integer/Dim a%

% 表示 Integer
& 表示 Long
@ 表示 Decimal
! 表示 Single
# 表示 Double
$ 表示 String
^ 表示 Currency（虽然你没有提及，但这也是VB中的一个数值类型）

整数类型:
- Byte: 无符号8位整数，范围从0到255。
- Integer: 有符号32位整数，范围从-2,147,483,648到2,147,483,647。
- Long: 有符号64位整数，范围从-9,223,372,036,854,775,808到9,223,372,036,854,775,807。
- Short: 有符号16位整数，范围从-32,768到32,767。
浮点数类型:
- Single: 单精度32位浮点数，用于存储较小的实数。
- Double: 双精度64位浮点数，用于存储较大或更精确的实数。
其他数值类型:
- Decimal: 用于财务计算和高精度计算，最大可精确到28位小数。
布尔类型:
- Boolean: 可以存储True或False两种状态。
- True -1，False -0（逻辑赋给数值）【与C++不同】
- （数值赋给逻辑）非0 true 0 false
字符和字符串类型:
- Char: 存储单个Unicode字符。
- String: 存储一个或多个字符的序列。 Dim a as string*n 定长字符串

日期类型:

Date: 存储日期和时间，范围从公元1年1月1日到公元9999年12月31日。

Private Sub Command4_Click()
d = CDate("2024-03-15 15:03:02")
Print d
End Sub

Private Sub Command5_Click()
Print Date; Time
End Sub

对象类型:
- Object: 可以指向任何数据类型的对象，包括实例对象或数组。

连续赋值 a=t:t=b:b=a

二、比较重要的函数

Asc(字符) 字符转Ascii Chr(数值) ascii转字符

str（数值）数值转字符串 Val（字符串）字符串转数值

Int （向下取整） Lcase / Ucase 转大小写

Instr（c1，c2） c1中找c2 下标从1开始，找不到0

Mid（c，N1，N2）取子串

Len 字符串长度

Space（n） n个空格字符串

Trim（字符串）减去字符串的空格

Rnd（）随机产生[0,1） randomize 随机种子

三、输入输出

vbCrlf 换行符

InputBox

提示信息 “ ”

标题 “ ”

返回默认值

Msgbox

提示信息

对话框样式（按钮类型、图标类型、默认按钮）

标题

返回值—— 选择按钮类型

四、分支语句和循环语句

分支语句：

If Then EndIf Then End If

Select Case Case if（比较大小） Cast a to b（范围）Case Else End Select

循环语句

Do while 循环条件 loop

Do loop while

for i= a to b Next

for each x in a next

五、数组

Option Base 1 【索引从1开始】

定义 Dim a%(10) Dim a() Dim(1 to 3,4 to 6 ) Lbound Ubound

Redim a(2,3) 动态数组重定义大小

控件数组 Index Load 建立 UbLoad 删除

六、过程和函数

sub 操作，不返回值

function 运算，可返回值（通过函数名返回）

传参：Byval 值传递 Byref 引用传递

函数 call 名称

七、类

八、控件

1.label

2.timer

3.textbox

QQ登录界面设计

4.command

打印机设计

5.image / picturebox

6.Shape

Dim dir As Integer

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Shape1.Left + Shape1.Width >= Form1.ScaleWidth Then
dir = 1
End If
If Shape1.Left <= 0 Then
dir = 0
End If
If dir = 0 Then
Shape1.Left = Shape1.Left + 200
End If
If dir = 1 Then
Shape1.Left = Shape1.Left - 200
End If

End Sub

7.Listbox

Dim i%, max%
Private Sub Command1_Click()
List1.AddItem (Text1.Text)
Text1 = ""
End Sub

Private Sub Command2_Click()
List1.RemoveItem (List1.ListIndex)
End Sub


Private Sub Command3_Click()
max = List1.List(0)
For i = 1 To List1.ListCount Step 1
If Val(List1.List(i)) > max Then
max = Val(List1.List(i))
End If
Next i
Label1 = max
End Sub

8 OptionButton单选框 / CheckBox 复选框

Private Sub Check1_Click(Index As Integer)
Text1 = Text1 & "," & Check1(Index).Caption
End Sub

Private Sub Option1_Click(Index As Integer)
Text1.ForeColor = Option1(Index).ForeColor
End Sub

9. Combobox 下拉框

additem removeitem 在list里面添加选项，既可以输入，也可以选择

10.H/VScrollBox 滚动条

Private Sub HScroll1_Scroll()
Text2.FontSize = HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Text2.ForeColor = RGB(0, 0, VScroll1.Value)
End Sub