本文目录一览:
- 1、vb编程实例
- 2、VB编程步步高-表单篇
- 3、vb程序设计实例
- 4、vb 例子
vb编程实例
下面的指握棚代码是利用三边计算三角形面积
Private Sub Command1_Click()
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
if a+b唯则c and b+ca and a+cb then
text4.text="三角形的面积是:" s
else
text4.text="不能皮谨构成三角形"
end if
end sub
下面是计算两数之和的代码
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
text3.text=a+b
end sub
VB编程步步高-表单篇
创建标准表单
假设有一个你要经常使用的表单,比如说,在表单的左上角有一个日历控件。为了更容易地建立这种表单,可以按照你需要的建立一个实例,放置上日历控件,设置好它的属性,等等。
然后,将这个表单升瞎保存在模板目录下,比如:C:Program FilesMicrosoft Visual StudioVb98TemplateForms。
现在,从工程菜单中选择“添加表单”,就出现了你刚才建立表单的一个选择。当添加了这个类型的表单后,原本设置好的属性也就存在了。
关于.FRX文件
什么是FRX文件?怎样我它们?没有它们能够正常工作吗?
Visual Basic在FRX文件中保存二进制信息,比如,如果你在设计时间中设置了一个表单的图形属性,Visual Basic就将这个图形保存在FRX文件中。如果这时删除了FRX文件,再次打开工程文件时,就会出现错误,并且,所有的相关信息就会丢失了。 -vb编程实例
如果在设计时间中替换了表单的图形属性,Visual Basic将在FRX文件中做相应的修改。但是,单独地我FRX文件却不是推荐的,因为确实没有方法。
没有这些FRX文件实际上不会发生任何事情,除非在设计时需要转载二进制信息,比如图形文件。你可以将图形和其他信息保存在一个资源文件中,然后在运行时调用它,或者,将这些信息单独存放,再在运行时调用。这个方法不会给你带来再多的好处,因为程禅笑闭序运行时,这些单独的文件都必须要存在。相反,如果让Visual Basic保存这些信息到FRX文件中,当编译后运行时,这些信息都将被包含在一个独立的EXE文件中了。 -vb编程实例
判断表单是否已经被装载
你可以使用表单集合来判贺裂断含有一定名字的表单是否已经被装载。方法是:循环遍历表单集合,比较其中每一个项目与目标名字是否匹配:
注释: Return a form by name if it is loaded.
Private Function FindForm(ByVal form_name As String) As Form
Dim i As Integer
注释: Assume we will not find it.
Set FindForm = Nothing
注释: Search the loaded forms.
For i = 0 To Forms.Count - 1
If Forms(i).Name = form_name Then
注释: We found it. Return this form.
Set FindForm = Forms(i)
Exit For
End If
Next i
End Function
表单为什么不在任务栏出现?
在编程中调试运行时,有时发现表单不在任务栏出现,这是怎么造成的?可能的原因有以下几种:
1、ShowInTaskBar被设置为False
2、表单是MDI子表单
3、表单的BorderStyle是固定大小的对话框
4、表单的BorderStyle是固定大小的ToolWindow
5、表单的BorderStyle是可变大小的ToolWindow
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
vb 例子
1..
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
2.
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False,并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时,马上退出。-vb编程实例
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 ' 退出外层循扮枣环。
3.
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True,则循环内的语句将一直执行下去。
Dim Counter
Counter = 0 ' 设置变量初值。
While Counter 20 ' 测试计数器的值。告缺局
Counter = Counter + 1 ' 将计数器的值加一。
Wend ' 当 Counter 19 时则循环终止。
Debug.Print Counter ' 在“立即”窗口中显示数字 20。
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值,故只有此区块内的语句会被完成到。袜让
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间,包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select