Question

vb编程题 每单击命令按钮一次,使所写字体变大三个单位(单位为缇)

这是一道编程题 我明天要交的作业 希望得到高人的指点

Answer 1

上面的，字虽大了，但不是3倍哦，文本框也显示不了
看我的
Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize * 3
text1.width=text1.width*3
text1.height=text1.height*3
End Sub

Answer 2

添加一个Text1

Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 3
End Sub

Answer 3

Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 3
End Sub

Answer 4

VB可使用Boolean 数据类型变量通过按钮的Click事件实现这个功能。
Boolean 数据类型：
Boolean 变量存储为 16 位（2 个字节）的数值形式，但只能是 True 或是 False。Boolean 变量的值显示为 True 或 False（在使用 Print 的时候），或者
#TRUE# 或 #FALSE#（在使用 Write # 的时候）。使用关键字 True 与 False 可将
Boolean 变量赋值为这两个状态中的一个。
实现代码：
Option Explicit
Dim fnFlag As Boolean

Private Sub Command1_Click()
If fnFlag Then
Text1.FontSize = 12
Else
Text1.FontSize = 15
End If
fnFlag = Not fnFlag
End Sub
Private Sub Form_Load()
Text1.FontSize = 12
End Sub