vb基本操作

1.选中部分的长度。 Text2 = Text1.SelLength

2.text1中的字母变成小写，text2中的字母变成大写.

Text1.Text = LCase(Text1.Text)

Text2.Text = UCase(Text1.Text)

3.在文本框中显示。 If Option1 Then

Text1 = List1.Text & Option1.Caption

Else

Text1 = List1.Text + Option2.Caption

End If

4.单击交换图片。 P1.Picture = LoadPicture("pic2.jpg")

P2.Picture = LoadPicture("pic1.bmp")

5.通过复选框选课.Private Sub C1_Click()

Dim s1 As String

s1 = "我选的课是"

If Ch1.Value = 1 And Ch2.Value = 0 Then

Text1 = s1 & Ch1.Caption

ElseIf Ch1.Value = 0 And Ch2.Value = 1 Then

Text1 = s1 & Ch2.Caption

Else

Text1 = s1 & Ch1.Caption & Ch2.Caption

End If

End Sub

6.Array?

7.选择组合框中的一个项目，计算正余弦值。

If Combo1.ListIndex = 0 Then

Text2 = Fix(Sin(Val(Text1) / 180 * 3.14159) * 1000) / 1000 ElseIf Combo1.ListIndex = 1 Then

Text2 = Fix(Cos(Val(Text1) / 180 * 3.14159) * 1000) / 1000 End If

8.通过右击打开菜单。 If Button = 2 Then

Me.PopupMenu Format

End If

9.单击载入图片。Image1.Picture = LoadPicture(App.Path & "\MISC34.ico")

10.单击清除。Set Image1.Picture = Nothing

11.运行滚动条。HScroll1.SetFocus

12.显示滚动条所在位置。Text1.Text = HScroll1.Value

13.滚动条右移。HS1.Value = HS1.Value + 10

14.标签显示当前时间或日期。Label1 = Date Label1 = Time

15.设置背景为红色。Form1.BackColor = &HFF&

16.单击窗体显示对话框。InputBox "请输入", "等级考试", "Basic"

17.单击窗体图片显示字。 Pic.Print "VB等级考试"

18.显示第一个字符的顺序号。 Text2 = Text1.SelStart

18.通过滚动块来放大图片框。Picture1.Width = HScroll1.Value

19.使图片随图片框的大小改变。Stretch

20.通用对话框的初始文件路径设定。Initdir

21.Text1.SetFocus运用SetFocus方法使文本框获得焦点。

22.标签移至右上角。Label1.Top = 0

Label1.Left = Form1.Width - Label1.Width

23.加粗 Text1.FontBold = True

倾斜 Text1.FontItalic = True

下划线Text1.FontUnderline = True

字体Text1.FontName = "宋体"

24.运用val(Option1(i). Caption)语句提取单选按钮数组中所选的数值.

25.用保存文件的方式打开通用对话框。 CommonDialog1.ShowSave

26.标签显示日期，时间。Label1 = Date Label1 = time

27.计算500以内，两个数中间所有连续数的和为1250的数，输出开头和结尾 Private Sub Command1_Click()

Dim i As Integer, j As Integer, iSum As Integer

Print "连续和为1250的正整数是："

For i = 1 To 500

iSum = 0

For j = i To 500

iSum = iSum + j

If iSum >= 1250 Then Exit For

Next

If iSum = 1250 Then

Print i; " ～ "; j

End If

Next

End Sub

28.通过形状控件的Name、Shape属性设置形状控件的名称和形状，通过列表框的Name、List属性设置列表框的名称和列表项，单击列表框中的某一项，通过List1的Text属性确定选中的值，并将其值作为形状控件的填充参数，FillStyle 属性用于返回/设置一个形状控件的填充样式。Private Sub List1_Click() Shape1.FillStyle = List1.Text

End Sub

29.驱动器列表框、目录列表框和文件列表框往往需要同步操作，这可以通过Path属性的改变引发change事件来实现。Private Sub Dir1_Change() File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Label2 = File1.FileName

End Sub

30.100个0到1000之间的最大值。 Dim i As Integer

Dim max As Integer, min As Integer

max = -1

min = 1000

For i = 1 To 100

If isnarc(a(i)) Then

If max <= a(i) Then max = a(i)

If min >= a(i) Then min = a(i)

End If

Next i

Text1 = max

Text2 = min

31.计算5000以内能够被该数字整除的所有数之和，并放入text1中。

Private Sub C1_Click()

Dim sum As Long

Dim n As Integer

Dim i As Integer

n = Val(Cb1.Text)

For i = n To 5000

If i Mod n = 0 Then

sum = sum + i

End If

Next i

Text1.Text = sum

End Sub

32.计算0到1000里不能被7整除的数的个数

Dim s As Integer, i As Integer

For i = 0 To 1000

If i Mod 7 <> 0 Then

s = s + 1

End If

Next i

Fun = s

33.通用对话框的打开。CD1.ShowOpen

通用对话框的保存。CD1.showsave

34.添加一个列表项。AddItem List1.List(k)

35.通过Call语句调用函数ShowName ：Call ShowName(Command1)

36.执行showname语句 Private Sub ShowName(c As control)

37.文本框中的数据添加到组合框中 Combo1.AddItem Text1.Text

38.通过对ASCII码来判断输入的是否为数字字符，是则添加，不是则警告。

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii > 57 Or KeyAscii < 48 Then

MsgBox "请输入数字！"

KeyAscii = 0

End If

End Sub

39.计算单选数组10， 11， 12，的阶乘。

''''答案：'''''''''''''''''''''''''''''''''''' Private Sub C1_Click()

Dim x As Double

If Op1(0).Value = True Then

Text1 = Str(fat(10))

ElseIf Op1(1).Value Then

Text1 = Str(fat(11))

Else

Text1 = Str(fat(12))

End If

End Sub

Private Function fat(n As Integer) As Double

If n = 0 Or n = 1 Then

fat = 1

Else

fat = fat(n - 1) * n

End If

End Function

''''''''''''''''

40.求数组中40个元素与其下标相除所得的和。

Dim Sum As Single, i As Integer

For i = 1 To UBound(a)

Sum = Sum + a(i) / i

Next i

Fun = Sum

41.标签中的字大小和列表框中选中的项目相同.

Label1.FontSize = Val(List1.Text)

42.5000以内能被列表项锁整除的数的和。

Private Sub C1_Click()

Dim Sum As Long

For i = 1 To 5000

If i Mod Val(Trim(Cb1.Text)) = 0 Then

Sum = Sum + i

End If

Next i

Text1.Text = Sum

End Sub

43.判断字母的大小写，并将他们相加，相减，相乘。

Private Sub Command2_Click()

'考生应完成的程序

'''''答案：''''''''''''''

Dim l%, u%, t$, i%

For i = 1 To Len(s)

t = Mid(s, i, 1)

If Asc(t) >= 65 And Asc(t) <= 90 Then

u = u + 1

ElseIf Asc(t) >= 97 And Asc(t) <= 122 Then

l = l + 1

End If

Next i

If Option1 Then

Text1.Text = u - l

ElseIf Option2 Then

Text1.Text = u + l

Else

Text1.Text = u * l

End If

44.每隔一秒标签中的数字加一。

L1.Caption = Val(L1.Caption) + 1

45.图像框的闪烁以及用滚动条来调节闪烁频率.

Timer1.Interval = HScroll1.Value

Image1.Visible = Not Image1.Visible

46.寻找最大最小值并计算

Max = a(1): Min = a(1)

For n% = 1 To 100

If a(n) > Max Then Max = a(n)

If a(n) < Min Then Min = a(n)

Next n

If List1.ListIndex = 0 Then

Text1 = Max - Min

ElseIf List1.ListIndex = 1 Then

Text1 = Max + Min

ElseIf List1.ListIndex = 2 Then

Text1 = Max * Min

End If

47.在直线上选取一点作图。

For k = 0 To 2

If Y = Line1(k).y1 Then

Call drawsin(X, Y)

48.对大小写字母以及空格的统计。

Dim U%, t$

U = 0

For I = 1 To Len(s)

t = Mid(s, I, 1)

If Option1.Value Then

If t >= "A" And t <= "Z" Then

U = U + 1

End If

ElseIf Option2.Value Then

If t >= "a" And t <= "z" Then

U = U + 1

End If

ElseIf Option3.Value Then

If t = " " Then

U = U + 1

End If

End If

Next I

Text1.Text = Str(U)

49.

Dim s As String

If Op1 Then

s = "坐飞机去"

If Op3 Then

Lab1.Caption = s + Op3.Caption Else

Lab1.Caption = s + Op4.Caption End If

Else

s = "坐火车去"

If Op4 Then

Lab1.Caption = s + Op3.Caption Else

Lab1.Caption = s + Op4.Caption End If

End If

50.Private Sub C1_Click()

Dim t As String

If Op1 Then

t = Text1: Text1 = Text2: Text2 = t

Lab1.Caption = "交换成功"

Else

Lab1.Caption = Text1 & Text2

End If

End Sub

51.将20个数组元素对调.

Dim k As Integer, t As Integer

For k = 1 To 10

t = a(k)

a(k) = a(21 - k)

a(21 - k) = t

Next k

52.文本对齐方式。

左Text1.Alignment = 0

中Text1.Alignment = 2

右Text1.Alignment = 1

53.二维数组中每行最大数的平均值

Dim sum As Integer, max As Integer

Dim i As Integer, j As Integer

For i = 1 To 20

max = a(i, 1)

For j = 2 To 5

If max < a(i, j) Then max = a(i, j)

Next j

sum = sum + max

Next i

Text2.Text = Fix(sum / 20)

53.找完全平方数，计算它的均值。

Dim i As Integer, sum As Integer, n As Integer For i = 1 To 100

If Fix(Sqr(a(i))) = Sqr(a(i)) Then

sum = sum + a(i)

n = n + 1

End If

Next i

Text1.Text = Fix(sum / n)

54.水仙花数的最大最小值.

Dim max As Integer, min As Integer

Dim i As Integer, b() As Integer, k As Integer

For i = 1 To 100

If isnarc(a(i)) Then

k = k + 1

ReDim Preserve b(k)

b(k) = a(i)

End If

Next i

max = b(1): min = b(1)

For i = 2 To k

If max < b(i) Then max = b(i) If min > b(i) Then min = b(i) Next i

Text1.Text = max

Text2.Text = min

VBProject代码操作代码之常用语句

一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub

VB常用字符串操作函数解读

VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符

VB基本操作题

基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点

VB6.0基础入门教程

VB最简单入门教程

目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)

1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。

VB基本语法

1.1 VB的数据类型 数据类型是数据的表示和存储形式。VB定义的基本数据类型如表5-1所示。 表5-1 VB的基本数据类型 Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度长整型）及Currency（货币型）均为Numeric数据类型。其中整型是16位的整数，长整型是32位的整数。单精度及双精度浮点型就表示实数，常被用于数量较大的数字。Currency数据类型支持小数点右面15位，是定点数据类型，适用于货币计算。 String（字符串变量）的数据类型只存放文本，是一个字符序列，它的每一个字符用ASCII 编码表示。不包含任何字符的串称为空串。 Byte数据类型表示0到255之间的数，常用于访问二进制文件、图形和声音文件

等。当需要把数据存放成字节，必须访问各字节时可采用Byte类型。 取值仅为True/False的类型称为Boolean（布尔）型，缺省值为False。 Date数据类型用于以特殊方式存放日期和时间。 Object变量可引用应用程序中或某些其他应用程序中的对象。 VB缺省规定，如果在生命中没有说明数据类型，则变量的数据类型为Variant（变体）。Variant数据类型还包含三种特定值：Empty、Null、Error。Empty值用于确定是否已将一个值赋予所创建的变量。赋值之前，Variant变量具有值Empty。 Null常用于数据库应用程序，表示未知或丢失为空的数据。 Error值是指已发出的过程中的错误状态。 Variant数据类型是最为灵活的数据类型，可以依据不同的需要进行各种数据类型的转换。它实际上包含两部分信息，一部分是数据类型的信息，一部分是表示数据值的信息。但正是由于它的灵活性，又使得它存在着一个明显的缺点，Variant数据类型比其他类型的数据占有更多的内存空间。 2 数组 VB中数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如：Dim Array（9）As Integer 数组中包含10个元素，脚标从0到9。 也可以指定脚标的起始值，例如： Dim IntegerArray（2 to 10）As Integer 这个数组含有九个元素，脚标从2到10。 还可以定义多维数组： Dim ThreeD（4,2 to 5,3 to 6）As Integer

vb二级基本操作题

第一章：基本操作题 ⑴在名称为Form1的窗体上画一个名称为Text1的文本框，请设置适当属性，使文本框中无初始内容，可显示多行，有垂直滚动条，且最多只能输入1000个字符。如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt11.vbp，窗体文件名为sjt11.frm。 ⑵在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示，如图1所示；如果双击窗体，则Text1显示，Text2隐藏，如图2所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp，窗体文件名为sjt12.frm。 ⑶在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”，BorderStyle属性为1，且可以根据标题自动调整大小，编写适当的事件过程。程序运行后，其界面如图1所示，此时如果单击窗体，则标签消失，同时用标签的标题作为窗体的标题，如图2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt13.vbp，窗体文件名为sjt13.frm。 （4）在名称为Form1的窗体上画一个命令按钮，其名称为C1，标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100. 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt14.vbp，窗体文件名为sjt14.frm。 （5）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图2所示）。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt15.vbp，窗体文件名为sjt15.frm。 （6）在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt16.vbp，窗体文件名为sjt16.frm。

VB试题(附带答案)

VB试题 一、基本概念及基本操作 1、如果要向工具箱中加入控件和部件，可以利用"工程"菜单中的______命令。 A、引用 B、部件 C、工程属性 D、添加窗体 2、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A、进入设计模式 B、进入运行模式 C、进入中断模式 D、不用进入任何模式 3、系统符号常量的定义可以通过______获得。 A、对象浏览器 B、代码窗口 C、属性窗口 D、工具箱 4、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是______。 A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 5、以下叙述中错误的是______。 A、用Shell函数可以调用能够在Windows下运行的程序

B、用Shell函数可以调用可执行文件，也可调用Visual Basic 的内部函数 C、调用Shell函数的格式应为：<变量名>=Shell(......) D、用Shell函数不能执行DOS命令 6、以下叙述中错误的是______。 A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS为扩展名的文件是标准模块文件 C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件 以下不属于Visual Basic系统的文件类型是______。 A、.frm B、.bat C、.vbg D、.vbp 7、VB中窗体文件的扩展名是______。 A、VBP B、FRM C、VBW D、PDM 8、以下叙述中错误的是______。 A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual Basic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发 9、以下叙述中错误的是______。 A、一个工程可以包括多种类型的文件

VB基本控件使用案例

请注意，下列所有的提示代码中，各事件过程的第1行（Private Sub…）和最后一行（End Sub）无需自己输入，在代码编辑窗口中对象列表选择相应对象，过程列表选择相应事件过程名，系统会自动输入第一行和最后一行，然后对号入座填入相应代码。

目录 第2章实例代码（理论课） (3) 【实例2.1】编写窗体的3个事件过程 (3) 【实例2.2】窗体关闭事件应用 (3) 【实例2.3】窗体FormClosing事件应用 (4) 【实例2.4】键盘事件的应用 (4) 【实例2.5】鼠标事件的应用 (5) 【实例2.6】多窗体程序设计 (6) 【实例2.7】命令按钮DialogResult属性应用 (7) 【实例2.8】密码框的使用 (8) 【实例2.9】文本框各类事件的应用 (8) 【实例2.10】文本框属性及方法的应用 (9) 第2章实验代码（上机内容） (10) 1．创建Windows应用程序，完成为窗体改变背景色的功能 (10) 2．体会窗体属性的使用 (11) 3．体会颜色的设置方法 (13) 4．自己设计应用程序，熟悉已介绍的各种窗体属性及Load、Click和DoubleClick事件 (13) 5．改写【实例2.3】的窗体关闭处理方法 (13) 6．完成【实例2.4】，体会键盘事件的使用 (13) 7．设计应用程序，要求窗体中文本框只按收字母和回车键 (13) 8．完成【实例2.6】，体会多窗体程序设计 (14) 9．完成【实例2.7】，命令按钮DialogResult属性应用 (14) 10．深入体会窗体、标签及命令按钮的属性、方法和事件的应用 (14) 11．完成【实例2.8】，体会密码框的制作与使用 (14) 12．完成【实例2.9】，体会文本框各类事件的使用 (14) 13．设计应用程序用光标键控制猴子移动 (14) 14．完成【实例2.10】，体会文本框各种方法的使用 (14) 15．使用FontDialog和ColorDialog对话框改写【实例2.10】某些功能的实现方法 (14) 16．求三角形函数值 (15) 17．总结本章所学知识点 (17)

关于VB的基本知识

Visual Basic入门教程 第一章介绍 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS 下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 VisualBasic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手DDDelphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是MicrosoftWindows的日渐成熟的必然产物。MicrosoftWindows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为MicrosoftWindows的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是MicrosoftSDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－VisualBasic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。 我的希望： 我在学习VB的过程中也曾遇到了许多困难，而且用的参考书大都来自译文，毕竟美国人和中国人的表达方式有所不同。这也造成了理解上的困难，所以我想为什么我不能写一个给中国人看到VB教程呢，于是我这么做了。也曾经在杂志上发表过几篇用VB制作小程序的文章，但受杂志的限制（篇幅、内容等等）（我得听小编的），总没有一个机会系统的介绍一下VB，造成了小小的遗憾。不过，我自己的主页建好后，终于这个愿望可以实现了，利用HTML可以方便的把文字与图片结合起来，不失为一个教学良所，也希望能够得到大家的支持。 希望“VB教程”能给你我一个互相学习的机会，如果你能从中获益那将是我最大的快乐，那时你一定会发现编程比游戏有趣得多 第二章：事件、属性及数据类型 以后两章可能会比较枯燥，但不可否认也很重要，所以为了学好VB，我们一定要打好基础才行。 一、事件 通过上一章的例子，你可能对“面向对象的编程”已经有了一定了解，它是由事件驱动的，对于不同的对象，所能感应到的事件也会不同，譬如说当你把鼠标移进某一区域时就会触发MouseMove事件，这很直观，也容易理解，但也有些事件比较抽象，下面我来对一般的事件进行一下解释。

VB开发软件的步骤

VB开发软件操作步骤 此文件作为软件开发课的学习内容 主要描述了使用VB开发一个软件的基本过程，及各部分可能的扩展内容等。 按其中的“基本操作”可以完成一个最简单的VB程序（功能是求两个数的和）。“操作方法”给出了在操作中所需要的方法 “基本内容”给出了解这一部分操作需要掌握的基本知识 “扩展内容”简单列出了深入学习这一部分需要掌握的内容。 此部分主要从具体操作出发，未涉及软件的总体设计等工作。 本部分内容应该可以在一个学时内基本掌握。

VB开发的八个主要步骤 1 运行VB及工程的建立 1.1 基本操作 运行VB，建立一个“标准EXE”的工程。 1.2 操作方法 1.2.1 VB的运行 可以使用“开始”菜单中寻找”Microsoft visual Basic 6.0”的快捷方式或在其它位置建立的快捷方式运行。 1.2.2 新建工程及打开工程 一般使用新建工程的类型是“标准EXE”，可以直接点击“打开”按钮。 如果需要打开已有的工程，可以选择“现存”页后选择.VBP文件。 在“最新”页中可以选择最近打开过的工程文件。 1.3 基本内容 1.3.1 工程的概念 一个工程将来会生成一个EXE文件。工程文件中记录了此工程涉及文件的列表及一些其它的信息。 1.4 扩展内容 1.4.1 其它类型工程的使用 2 集成环境IDE的使用 2.1 基本操作 无，（认识集成环境中各部分的名称） 2.2 操作方法 2.2.1 各窗口的位置调整 可以使用拖动窗口的方式调整各窗口的位置，VB会自动Docking在一些其它窗口上，为避免此情况，可以按住“CTRL”键再拖动。 2.2.2 窗口显示状态的控制 可以从“视图”菜单上控制各窗体的显示状态。

VB基础知识

复习 一、VB的数据类型 Boolean(布尔型): 类型说明符：Boolean，占用2字节 Byte(字节): 类型说明符：Byte占用1字节. Integer(整型):类型说明符：Integer，类型标识%,占用2字节. Long(长整型): 类型说明符：Long，类型标识"&",占用4字节. Single(单精度型): 类型说明符：Single，类型标识"!",占用4字节. Double(双精度型): 类型说明符：Double，类型标识"#",占用8字节. Currency(货币型): 类型说明符：Currency，类型标识"@",占用8字节. Date(日期型): 类型说明符：Date ，占用8字节. String(字符串,变长): 类型说明符：String，类型标识"$" 二、VB的运算符 赋值运算符:用来给变量或对象的属性赋值.把运算符右边的内容(包括常量,变量,函数返回值或对象的属性)赋给左边的变量或对象.属性. 使用赋值号应注意: 1．赋值号左边必须是变量或对象的属性,不能是数值,常量和表达式. 2．赋值号两端的数据类型应该匹配,不匹配时应进行适当转换. 3．给对象赋值时,只有运行时可改写的对象属性才能被赋值. 数学运算符 ∧指数运算 - 负号运算符 * / 乘除运算,其中除法所得到的结果为实数 \ 整除,所得到结果为实际结果的整数部分. MOD 取模运算,两数相除取余数. + - 加减运算. 字符串运算符 & + 连接字符. &与+连接运算符的区别 &强制两个表达式(它们的类型可能不同)做字符串连接;而当+运算符两边的表达式中混有数值字符串及数值,其结果会是数值的求和,如果都是字符串则作"相加",返回连接起来的字符串.

vb操作题整理(全)

'对文本框中输入的大写英文明文，一一转换成小写密文。 Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To Len(Text1.Text) '①Len Len(X) temp1 = Mid(x, i, 1) temp2 = Chr(Asc(temp1) + 32) '②Chr(Asc(temp1) + 32) y = y + temp2 Next i Text2.Text = y '③y End Sub '用穷举法，找出所有的水仙花数。所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身'例如：153是一个“水仙花数”,因为153=1^3＋5^3＋3^3。 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i \ 100 '①100 b = (i - a * 100) \ 10 '②100 c = i Mo d 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i Next i '③Next i End Sub '通过键盘依次输入任意10个数字，然后将其按先输入后输出的反方向显示。 Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 s(i) = V al(InputBox("请输入一个数")) '①s(i) Next i For i = 9 To 0 Step -1 '②-1 Print s(i) '③s(i) Next i End Sub '在文本框输入a,b,c，然后求出最大值，显示在label3里 Private Sub Command1_Click() Dim a, b, c, max As Integer a = V al(Text1.Text) b = V al(Text2.Text) c = V al(Text3.Text)

VB字符操作的基本用法(很全的)

mid(字符串，从第几个开始，长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如mid("小欣无敌",1,3) 则返回"小欣无" instr(从第几个开始,字符串1,字符串2) ByV al 从规定的位置开始查找，返回字符串2在字符串1中的位置 例如instr(1,"小欣无敌","小") 则返回1,instr(2,"小欣无敌","小")，则返回0 。0 表示未找到 InStrRev(字符串1,字符串2,从第几个开始) ByV al 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。 例如instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。0 表示未找到 left(字符串,长度) ByV al 从[字符串]的左边开始返回[长度]个字符 例如Left("小欣无敌,3) 则返回"小欣无" right(字符串,长度) ByV al 从[字符串]的右边开始返回[长度]个字符 例如Right("小欣无敌",3) 则返回"欣无敌" ucase(字符串) ByV al 返回[字符串]的大写形式，只对英文字符有效 例如ucase("xiaoXINwuDi") 则返回"XIAOXINWUDI" lcase(字符串) ByV al 返回[字符串]的小写形式，只对英文字符有效 例如lcase("xiaoXINwuDi") 则返回"xiaoxinwudi" asc(字符) Byval返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程 例如asc("小") 则返回-12127 ; asc("小欣无敌") 也返回-12127 chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程 例如chr(-12127) 则返回"小" ；chr(asc("小")) 则返回"小"(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本) trim(字符串) Byval 返回去掉了前、后之后的[字符串] 例如trim(" 小欣无敌") 则返回"小欣无敌" ，中间的空格不受任何影响 string(个数,字符) Byval 返回[个数]个[字符] 例如string(3,"小") 则返回"小小小" , 而string(3,"小欣无敌") 也返回"小"，只有首字符才有效 space(个数) Byval 返回[个数]个空格

VB基本属性和用法

内部控件 控件在VB程序设计中扮演重要的角色，它是VB程序的基本组成部分。合理恰当地使用各种不同的控件，以及熟练掌握各个控件的属性设置，是进行VB程序设计的基础。另外控件应用的好坏直接影响应用程序界面的美观性和操作的方便性。下面详细介绍VB的内部控件的使用方法。 1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。（2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下：Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）W ordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下：Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 2 文本框