Question

vb编程题目

如图，谢谢了

Answer 1

Private Sub Command1_Click()

If Len(Text1) >= 2 Then

Text1 = Left(Text1, 2)

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

End Sub

Private Sub Form_Load()

Label1.Caption = "新字符串"

Command1.Caption = "左边2个字符"

Command2.Caption = "清空"

Text1 = ""

'这里不知道 三号是多大时，可以手动设置文本框字体大小为三号，然后显示下字体大小，就知道三号字体等于15.75

Print Text1.FontSize

Text1.FontSize = 15.75

Text1.ForeColor = vbRed

Text1 = "aBcDeF"

End Sub

Answer 2

我也不知道