vb程序设计例题,初学VB遇到的一个程序设计题

vb程序设计例题,初学VB遇到的一个程序设计题详细介绍

本文目录一览： VB高手求解 程序设计基础题 O(∩_∩)O谢谢

1.
"ABCDE " > " ABRA " 结果=True
2.
ch=”AABCDEFGH”
print mid(right(ch,6),len(left(ch,4)),2)
结果：FG
3.
a=”Visual Basic Programming”
b=”Quick”
c=b&Ucase(mid(a,7,6))&right(a,12)
变量c的值为：Quick Basic Programming
4.
print chr(65)
结果：A
5.
print sgn(2)
结果：1
6.
s=”ABCDEFGHIJK”
print left(s,4)
print right(s,4)
结果：
ABCD
HIJK
四、转换题
将下列数学算式写成在VB中对应的表达式
1.5+(a+b)2
5+(a+b)*2
2.cos(x)(sin(x)+1)
如果x以“度”为单位：
cos(x*3.14159/180)*sin(x*3.14159/180)+1)
3.e2+2
如果e2是指e平方的话：
exp(2)+2
4.2a(7+b)
2*a*(7+b)
5.8e3?ln2
如果8e3是科学计数法表示的话：（若是e的3次方则按上一题，表示为exp(3))
8000*log(2)

做两个VB程序 简单题目

　　1.用VB编程序设计一个简易的计算器
　　代码：
Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 11 To 14 num_1 = Val(Label1.Caption) Label1.Caption = "" flag = Index Case 15 num_2 = Val(Label1.Caption) Label1.Caption = "" If Command1(flag).Caption = "+" Then Label1.Caption = num_1 + num_2 ElseIf Command1(flag).Caption = "-" Then Label1.Caption = num_1 - num_2 ElseIf Command1(flag).Caption = "*" Then Label1.Caption = num_1 * num_2 Else Label1.Caption = num_1 / num_2 End If Case 16 num_1 = 0 num_2 = 0 Label1.Caption = "" End SelectEnd SubPrivate Sub Form_Load() Me.AutoRedraw = True For i = 0 To 9 Command1(i).Caption = i Next iEnd Sub　　窗体界面设置：
　　在窗体上建立控件数组Command1(0),Command1(1),Command1(2),……,Command1(16),其Captint属性分别设置为0,1,2,3,4,5,6,7,8,9,.,+,-,*,/,=,C
　　2.用VB编程序实现十进制与二进制之间的相互转化
　　代码：
Private Sub Command1_Click() Text3.Text = "" Text4.Text = "0." n = Val(Text1.Text) Do While n > 0 Text3.Text = CStr(n Mod 2) + Text3.Text n = n \ 2 Loop n = Val(Text2.Text) Do While n > 0 Text4.Text = Text4.Text + CStr(Fix(2 * n)) n = 2 * n - Fix(2 * n) LoopEnd SubPrivate Sub Command2_Click() Dim s1, s2 Text1.Text = "" Text2.Text = "" For i = 1 To Len(Text3.Text) s1 = s1 + Val(Mid(Text3.Text, i, 1)) * 2 ^ (Len(Text3.Text) - i) Next i Text1.Text = s1 For i = 3 To Len(Text4.Text) s2 = s2 + Val(Mid(Text4.Text, i, 1)) * 2 ^ (-(i - 2)) Next i Text2.Text = "0" + CStr(s2)End SubPrivate Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""End SubPrivate Sub Form_Load() Me.AutoRedraw = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0 Beep End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then KeyAscii = 0 Beep End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 49) And KeyAscii <> 8 Then KeyAscii = 0 Beep End IfEnd SubPrivate Sub Text4_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 49) And KeyAscii <> 8 And KeyAscii <> 46 Then KeyAscii = 0 Beep End IfEnd Sub
　　运行界面：
　　

VB程序设计练习题？

PrivateSubCommand1_Click()
DimnAsLong
n=Val(InputBox("输入"，"请输入您个年龄"，12))
Ifn<18Then
Printn；"少年"
ElseIfn>=18Andn<45Then
Printn；"青年"
ElseIfn>=45Andn<=59Then
Printn；"中年"
ElseIfn>59Then
Printn；"老年"
Else
Printn；"输入年龄错误"
EndIf
EndSub
PrivateSubCommand2_Click()
DimnAsLong
n=Val(InputBox("输入"，"请输入您个年龄"，12))
SelectCasen
CaseIs<18
Printn；"少年"
CaseIs>59
Printn；"老年"
CaseIs>=18
SelectCasen
CaseIs<45
Printn；"青年"
CaseElse
Printn；"中年"
EndSelect
CaseElse
Printn；"输入年龄错误"
EndSelect
EndSub
PrivateSubForm_Load()
Me.Caption="年龄段划分"
Command1.Caption="使用if"
Command2.Caption="使用select"
EndSub
设计界面：
代码：
Private Sub Command1_Click()
Dim n As Long
n = Val(InputBox("输入", "请输入您个年龄", 12))
If n < 18 Then
Print n; "少年"
ElseIf n >= 18 And n < 45 Then
Print n; "青年"
ElseIf n >= 45 And n <= 59 Then
Print n; "中年"
ElseIf n > 59 Then
Print n; "老年"
Else
Print n; "输入年龄错误"
End If
End Sub
Private Sub Command2_Click()
Dim n As Long
n = Val(InputBox("输入", "请输入您个年龄", 12))
Select Case n
Case Is < 18
Print n; "少年"
Case Is > 59
Print n; "老年"
Case Is >= 18
Select Case n
Case Is < 45
Print n; "青年"
Case Else
Print n; "中年"
End Select
Case Else
Print n; "输入年龄错误"
End Select
End Sub

vb程序设计实例

Private Sub Form_Activate()
'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)
Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)
Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)
Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)
Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)
Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)
End Sub
Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function
Private Sub Form_Load()
AutoRedraw = True
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button30.Click
Dim a As Double, b As Double, c As Double, d As Double, n As Double
Dim u As Double, v As Double, w As Double, x As Double, y As Double, z As Double
If TextBox0.Text = "" Then
MsgBox("请输入现有钱数n!")
Exit Sub
End If
n = Val(TextBox0.Text)
a = 0.0225
b = 0.0243
c = 0.027
d = 0.0288
u = (n * ((1 + d) ^ 5))
v = (n * ((1 + c) ^ 3)) * ((1 + b) ^ 2)
w = (n * ((1 + c) ^ 3)) * ((1 + a) ^ 2)
x = n * ((1 + b) ^ 2) * (1 + a)
y = n * (1 + b) * ((1 + a) ^ 3)
z = n * ((1 + a) ^ 5)
TextBox1.Text = u
TextBox2.Text = v
TextBox3.Text = w
TextBox4.Text = x
TextBox5.Text = y
TextBox6.Text = z
'已成功调试 ,在TextBox0.Text输入10000 则输出
'11176.7769346182
'10950.0757304219
'10727.97276025
'11324.9935711827
'11364.9015050804
'11525.3673838712
End Sub
有问题在线联系...
你要什么系统？
你用计算器算一下不就行了么？
VB算也是调用的系统计算器。
x*(1+2.88%）
x*(1+2.70%*2.25%*3.25%)

VB程序设计题

Private Sub Command1_Click()
Dim price As Double
If Me.Combo1.Text = "90号" Then price = 2.3 * CLng(Me.Text1.Text)
If Me.Combo1.Text = "95号" Then price = 2.45 * CLng(Me.Text1.Text)
If Me.Combo1.Text = "100号" Then price = 2.6 * CLng(Me.Text1.Text)
Me.Text2.Text = price
End Sub
Private Sub Form_Load()
Me.Combo1.AddItem ("90号")
Me.Combo1.AddItem ("95号")
Me.Combo1.AddItem ("100号")

Me.Combo1.Text = "90号"
Me.Text1.Text = 0
Me.Text2.Text = ""
End Sub
1.新建工程：工程1；
2.新建一下ComboBox控件：Combo1,并将属性Style改为2；
3.新建五个Label:Label1，Label2，Label3,Label4，Label5;
4.新建两个Text文本框:Text1,Text2
5.新建一个CommandButton按钮:Command1;
以上的相关控件不要改名字，位置也不用设定，程序会自动设定好。
将下面的代码COPY进去就行了
Private Sub Form_Load()
Form1.Caption = "加油站计费程序"
Form1.Width = 3800
Form1.Height = 3300
Label1.Caption = "种类"
Label1.Move 900, 200
Label1.AutoSize = 1
With Combo1
.AddItem ("90号")
.AddItem ("95号")
.AddItem ("100号")
.Move 500, 500, 1200
End With
Label2.Caption = "单价(元/升)"
Label2.Move 2000, 200
Label2.AutoSize = 1
Label3.Caption = "0"
Label3.Move 2200, 550
Label3.Width = 500

Label4.Caption = "数量"
Label4.Move 900, 1000
Label4.AutoSize = 1

Text1.Move 500, 1300, 1200, 300
Text1.Text = 0
Text1.Alignment = 1

Label5.Caption = "总价(元)"
Label5.Move 2100, 1000
Label5.AutoSize = 1

Text2.Move 1900, 1300, 1200, 300
Text2.Text = 0
Text2.Enabled = False
Text2.Alignment = 1

Command1.Caption = "计算"
Command1.Move 1320, 1920, 1095, 375
End Sub
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "90号": Label3.Caption = "2.30"
Case "95号": Label3.Caption = "2.45"
Case "100号": Label3.Caption = "2.60"
End Select
Text1.SetFocus
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Command1_Click()
On Error Resume Next
Text2.Text = Format(Val(Text1.Text) * Val(Label3.Caption), "0.00")
End Sub

两道vb编程题

1.放入两个ListBox控件 名字分别是List1,List2mList1的sorted属性为True
代码：
Private Sub Form_Load()
List1.AddItem "计算机应用"
List1.AddItem "软件工程"
List1.AddItem "信息化技术"
List1.AddItem "数据库"
List1.AddItem "C++"
List1.AddItem "软件重用"
List1.AddItem "web设计"
End Sub
Private Sub List1_Click()
If List2.ListCount = 4 Then
MsgBox "只能选4门课", , ""
Exit Sub
End If
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
2.
Private Sub Command1_Click()
Dim num As Long, temp As Boolean
num = Val(Text1.Text)
temp = True
For i = 2 To Sqr(num )
If num Mod i = 0 Then
temp= False
Exit For
End If
Next
if temp =false then
MsgBox num & "不是一个素数"
else
MsgBox num & "是一个素数"
end if
End Sub
1
Private Sub Form_Load()
List1.Clear
List1.AddItem ""大学计算机基础""
List1.AddItem ""VB程序设计""
List1.AddItem ""数据库技术与应用""
List1.AddItem ""C程序设计""
List1.AddItem ""多媒体技术""
List1.AddItem ""硬件技术基础""
List1.AddItem ""网络技术与应用""
List1.AddItem ""WEB程序设计""
End Sub
Private Sub List1_Click()
If List2.ListCount >= 5 Then
MsgBox ""超过5门课程，不能再选！""
Exit Sub
Else
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub
2
Private Sub Command1_Click()
Dim N As Long, Flags As Boolean
N = Val(Text1.Text)
Flags = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
Flags = False
Exit For
End If
Next
MsgBox N & IIf(Flags, "", "不") & "是一个素数"

End Sub

VB编程题目~求助啊~~

Private Sub Command1_Click()
a = Val(InputBox("A="))
b = Val(InputBox("B="))
c = Val(InputBox("C="))
Max = IIf(a > b, a, b)
If c > Max Then Max = c
MsgBox "最大数=" & Max
End Sub
Private Sub Form_Load()
Form1.Caption = "最大数"
End Sub
'这题目对初学者，其实很有难度，运行效果如下Private Sub command1_click()Dim X As StringDim brrDim a As LongDim b As LongDim c As LongX = InputBox("请输入3个整数(以英文逗号分隔)：", "求最大数", "例如：3,344,51", 1000, 1000)brr = Split(X, ",") If UBound(brr) > 2 ThenMsgBox "输入数字多余3个，请重新输入！", , "提醒"End '退出End IfIf UBound(brr) < 2 ThenMsgBox "输入数字少余3个，请重新输入！", , "提醒"End '退出End Ifa = brr(0)b = brr(1)c = brr(2)MsgBox "这三个数的最大数是" & Max(Max(a, b), c), , "最大数显示"End SubFunction Max(n1 As Long, n2 As Long) As LongMax = IIf(n1 > n2, n1, n2)End Function

请大家提供一些VB的习题

我们刚刚考完VB的考试~把你邮箱给我我把我们的模拟题给你发过去~
一、选择题
1、 某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。
A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示
F2窗体
2、 在VB中，执行“Text1．Text= “0551-2649670” “Tel=0551-2649670”这行语句时，“，”后面的部分为（ ）。
A、注释部分，不是可执行代码 B、注释部分，但是可以执行代码
C、程序代码的一部分 D、程序代码的另一种写法
3、 VB的数据类型分为（ ）
A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型
C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型
4、VB中的变量如果没有显示声明其数据类型，则默认为（ ）
A、日期型 B、数据型 C、字符型 D、变体型
5在VB中，通过改变表框（ ）属性的值 ，可以为列表框添加项目。
A、List B、（名称） C、Caption D 、Text
6、在VB中，执行“A=5：A=A+5”语句后，变量A的值为（ ）
A、0 B、5 C、10 D、不一定
7、VB中运算符被分为四类，分别是（ ）
A、算术运算符、连接运算符、关系运算符、逻辑运算符
B、算术运算符、比较运算符、关系运算符、逻辑运算符
C、算术运算符、连接运算符、布尔运算符、逻辑运算符
D、连接运算符、比较运算符、逻辑运算符、关系运算符
8、在VB中，执行“A=18MOD4”语句后，A的值为（ ）。
A、2 B、4 C、6 D、8
9、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是（ ）。
A、True,True B、True False C 、False,True D 、False,False
10、在VB中，执行 “DimA,B As String” 语句后，A，B的数据结构为（ ）。
A、整型数 B、实型数 C、字符型 D、字节型
11、在VB中，执行 “A=123：B=Str$(A)”语句后，B的数据结构为（ ）。
A、整型数、 B、字节型 C、实型数 D、字符型
12、在VB中，复写框（Check）的Value值有三种，分别是（ ）。
A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0
13、在VB中，如要创建“年级”和“班级”两组单选按钮，具体的做法是（ ）
A、先创建“单选按钮”，然后用“框架”分别框住
B、先分别创建“单选按钮”和“框架”，然后将“单选按钮”拖到相应的框架中
C、先创建“框架”，然后在“框架”中创建“单选按钮”
D、以上方法均可
14、数学关系3〈= x〈10表示成正确的VB表达式为（ ）
A、3〈=x〈10 B、3〈=xANDx〈10 C、x〉=3ORx〈10 D、3〈=xAND〈10
15、Int（198.555*100+0.5）/100的值为（ ）
A、198 B、199.6 C、198.56 D、200
16、下面正确的赋值语句是（ ）
A、x+y=30 B、y= *r*r C、y=x+30 D、3y=x
17、为了给三个变量赋初值1，下面正确的赋值语句是（ ）
A、x=1：y=1：z=1 B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1
18、分支结构的程序在进行判断后可分别控制程序有（ ）个以上的走向。
A、1 B、2 C、3 D、8
19、语句If x=1 Then y=1,下列说法正确的是（ ）。
A、x=1和 y=1 均为赋值语句 B、x=1和 y=1均为关系表达式
C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达
20、可用于设置系统当前时间的语句是（ ）。
A、Date B、Date$ C、Time D、Timer
21、若要退出For循环，可使用的语句为（ ）。
A、Exit B、Exit Do C、Time D、Exit For
22、利用VB设计程序的基本步骤可分四步：
（1） 设计用户界；（2）（ ）；（3）运行调试程序；（4）生成执行文件。
A、编写代码 B、设计算法 C、信息反馈 D、系统集成
23、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是( )
A Form.C aption“时钟” B Form.Caption=“时钟”
C Caption=“时钟” D Fopm.Caption( “时钟”)
24 下列操作不能打开代码窗口的是( )
A选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B 选中对象,双击鼠标左键 C 按F7键 D按F4键
25 保存文件时,窗体的所有数据存储格式为( )
A *．PRG B *．FRM C.*．VBP D *．EXE
26窗体初始化程序应写在( )事件中.
A Load B Unload C Activate D GotFocus
27 在一个语句内写多条语句时,每个语句之间分隔符号是( )
A ， B ： C 、 D ；
28 一句语句要在下一行继续写,所用的续行符号为( ).
A ＋ B － C ＼―― D．．．X
29 下面是合法的变量名为( )
A x＿yz B 123abc C integer D X-Y
30 下面是合法的字符串常数为( )
A ABC $ B “ABC” C ‘ABC' D ABC
二 判断题
1、 VB 中的控件都是用来设计用户界面的。（ ）
2、在VB程序时,选中Form (窗体)上的某个控件,如果控件周围出现8个白色小方块,则表示该控件未被锁定。（ ）
4、 设计VB程序时，选中窗体上的“Text1”文本框控件，将其“BackColor”属性值设置为淡绿色，将“ForeColor”属性值设置为红色，则“Text1”文字为红色。（ ）
5、 在VB中，“方法”是指在对象上起作用的过程，也就是说用来控制对象的功能及操作的内部程序。（ ）
6、 在编写VB程序代码时，对象属性的表示方法为：方法名.对象名称。（ ）
7、 Click事件，就是鼠标单击事件。（ ）
8、 在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。（ ）
程序代码的基本结构有三种，分别是顺序结构、选择结构（分支结构）、循环结构。（ ）
9、 在VB中，有一名称为LIST1的列表框，那麽执行“LIST1.ADDITEM“方周工作室””语句后，即在LIST1列表框中添加“方周工作室”这个项目。（ ）
10、 在VB中，运算级从高到底的顺序是：算数运算、连接运算、关系运算、逻辑运算。（ ）

初学VB遇到的一个程序设计题

Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "你好,欢迎使用VB"
Form1.Caption = "鼠标单击窗体"
End Sub
Private Sub Form_DblClick()
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "再见,谢谢使用VB"
Form1.Caption = "鼠标双击窗体"
End Sub
vba /excel中试了挺好呀，如下（有的属性不一样加了‘）：
Private Sub UserForm_Click()
'UserForm.FontSize = 20
'UserForm.FontName = "黑体"
UserForm.ForeColor = RGB(255, 0, 0)
'UserForm.Print "你好,欢迎使用VB"
UserForm.Caption = "鼠标单击窗体"
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'UserForm.FontSize = 20
'UserForm.FontName = "黑体"
UserForm.ForeColor = RGB(255, 0, 0)
'UserForm.Print "再见,谢谢使用VB"
UserForm.Caption = "鼠标双击窗体"
End Sub
Private Sub Form_Click()
cls
Form1.Print "你好,欢迎使用VB"
Form1.Caption = "鼠标单击窗体"
End Sub
Private Sub Form_DblClick()
cls
Form1.Print "再见,谢谢使用VB"
Form1.Caption = "鼠标双击窗体"
End Sub
Dim isDBc As Boolean
Private Sub Form_Click()
isDBc = False
Timer1.Enabled = True
End Sub
Private Sub Form_DblClick()
isDBc = True
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If isDBc <> True Then
Me.Print "你好,欢迎使用VB"
Me.Caption = "鼠标单击窗体"
Else
Me.Print "再见,谢谢使用VB"
Me.Caption = "鼠标双击窗体"
End If
Timer1.Enabled = False
End Sub
在窗体上添加一个Timer控件
标题栏不显示的原因是你没加双引号
Private Sub Form-load()
Caption = ""
Private Sub Form_Click()
Cls
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "你好,欢迎使用VB"
Form1.Caption = "鼠标单击窗体"
End Sub
Private Sub Form_DblClick()
Cls
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "再见,谢谢使用VB"
Form1.Caption = "鼠标双击窗体"
End Sub
Dim isDBc As Boolean
Private Sub Form_Click()
isDBc = False
Timer1.Enabled = True
End Sub
Private Sub Form_DblClick()
isDBc = True
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If isDBc <> True Then
Me.Print "你好,欢迎使用VB"
Me.Caption = "鼠标单击窗体"
Else
Me.Print "再见,谢谢使用VB"
Me.Caption = "鼠标双击窗体"
End If
Timer1.Enabled = False
End Sub
在窗体上添加一个 Timer控件
再粘帖上面的代码就可以了
标题栏不显示的原因是你没加双引号将字符串引住的原因
Private Sub Form_Click()
Cls
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "你好,欢迎使用VB"
Form1.Caption = "鼠标单击窗体"
End Sub
Private Sub Form_DblClick()
Cls
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "再见,谢谢使用VB"
Form1.Caption = "鼠标双击窗体"
End Sub