有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。   Private Sub Command1_Click( )    x=Val(Text1.Text)    If【

admin2009-01-15  27

问题 有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。
  Private Sub Command1_Click( )
   x=Val(Text1.Text)
   If【  】Then
     Print x
   Else
     Text1.Text=""
   【  】
   End If
  End Sub

选项

答案x Mod 4 = 1 And x Mod 5=2 , Text1.SetFocus

解析 (1)程序调用了Val()函数从文本框中的得到数据。本题中先通过Val()函数得到一个整数,进行条件判断,如果满足条件x Mod 4=1 And x Mod 5=2则输出x,否则,将清空文本框,焦点落在文本框中。
转载请注明原文地址:https://jikaoti.com/ti/M480FFFM
0

最新回复(0)