下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。

Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 Then LabeCaption=“偶数” Else LabeCaption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If【】ThenKeyAscii=0 End Sub

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整…”相关的问题

第1题

假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As 1 x=LOF(1) n=x\r1 执行上面的程序段后，变量n中存放的是文件【】中所存放的是【】记录类型的记录数。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第2题

Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第3题

以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【】 Text1．Top=【】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用Dirl选择文件所在的文件夹，在Filel控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl中。补充相应的语句，使之完成所述的功能。 Private Sub Dirl_Change() 【】 End Sub Private Sub Drive1_Change() 【】 End Sub Private Sub Filel _Click() Dim fname AS String If【】Then fname=Filel．Path & Filel．FileName Else fname=Filel．Path& "\" & Filel．FileName End If RichTextBox1．LoadFile(fname) End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案