【VB实例】大学VB课程教学实例题讲解（非专业向）

Parts

Description

自制一套完整的教学视频，是针对学校VB课后实验题的，如果在大学的各位觉得学VB很吃力的话，大可以将这套视频拿去恶心自己！为什么这么说呢！当录完整套视频之后我才发现了许多问题——自己有时说话太不清楚了，而且说得还特别快，逻辑性也不强，有时自己都不知道自己在说什么，希望大家能多多见谅，仅当一个课后的借鉴了。虽然视频录制的不怎么地，但视频中出现的代码部分都是我仔细思考后做的，大家可以拿来作为参考，但绝对不是说明那就是最好的，仅仅是我个人的想法，请大家不要被我的视频限制了

Comments

JoyboyKakarotto 2020-10-06

Private Sub Command1_Click() Dim a As Double Dim n As Integer a = Val(Text1.Text) n = Val(Text2.Text) Text1.Text = Round(a, n) End Sub

♥ 92 ↩ 2

大橙橙橙子゙゙゙ 2018-12-31

超好的教程，很详细。三连了

♥ 51 ↩ 3

棠梨送旧 2019-06-23

明天考VB我现在有点慌

♥ 32 ↩ 13

刷牙仙人 2020-12-04

视频题目文档：链接:https://pan.baidu.com/s/1rMdTSMNM_Srz7OLiAyZMwA 提取码:7473

♥ 31 ↩ 2

vjianglei 2021-03-17

Private Sub Command1_Click() Print "你单击了“显示”按钮" End Sub Private Sub Command2_Click() Print "你单击了“变大”按钮" Form1.Width = Form1.Width + 50 Form1.Height = Form1.Height + 50 End Sub Private Sub Command3_Click() Print "你单击了“变小”按钮" Form1.Width = Form1.Width - 50 Form1.Height = Form1.Height - 50 End Sub

♥ 23 ↩ 1

楊娜丽莎 2020-02-22

Private Sub Command1_Click() Dim a As Double, b As Integer a = Val(Text1.Text) b = Int(Text2.Text) Text1.Text = IIf((a - Int(a)) < 0.5, Int(a * 10 ^ b), Int(a * 10 ^ b) + 1) / (10 ^ b) End Sub

♥ 18 ↩ 3