减少供电线路电能损失，减少电压损失，提高末端电压宜采取无功就地补偿。

以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click()
x＝Val(Text1.Text)
If 【9】 Then
Print x
Else
Text1.SetFoeus
Text1.SetStart＝0
End If
End Sub