首页 > 高职专科

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 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

答案

查看答案

发布时间：2020-12-02

更多“以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本”相关的问题

第1题

在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框T

ext1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If______ Then Text1.FontUnderline=Tree ElseIf______Then Text1.FontUndefiine=False End If End Sub

点击查看答案

第2题

在窗体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

点击查看答案

第3题

在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请

在空白处填入适当的语句。 Sub SORT() Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(" " ，" "，0)) Next i For i=【】 k=i For j=【】 If a(k)＞a(j)Then【】 If k＜＞i Then b＝a(k) a(k)＝a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub

点击查看答案

第4题

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Tex

t1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本

点击查看答案

第5题

在窗体上有一个文本框控件,名称为TxtTime:一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为:在下划线后应填入的内容是__（）

A.nabled&nbsp

B.Visible&nbsp

C.Interval&nbsp

D.Timer

点击查看答案

第6题

窗体上有一个列表框List1和一个文本框Text1，程序运行时，当单击列表框某个项目时，在文本框里显示选中的列表项内容，下面能实现上述操作的是______。

A.Private Sub List1_Click()

B.Private Sub List1_Click()Text1.Text = List1.List Text1.Text = List1.ListIndex/ End Sub End Sub

C.Private Sub List1_Click()

D.Private Sub List1_Click()Text1.Text = List1.Text Text1.Text = List1.Caption End Sub End Sub

点击查看答案

第7题

设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load（） Show Text1.Tex

设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp（Button As Integer, _

Shift As Integer, X As Single, Y As Single）

Print "程序设计"

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

Print "Visual Basic";

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第8题

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1 Click（）

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：

Private Sub Command1 Click（）

Static x As Variant

n=0

x=Array(1，2，3，4，5，6，7，8，9，10)

While n＜=4

x(n)=x(n+5)

Print x(n)：

n=n+1

Wend

End Sub

运行程序，单击命令按钮Command1，窗体上显示的是（）。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5

点击查看答案

第9题

在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是（）

A.d1.Action=2

B.d1.Action=1

C.d1.ShowSave=Ture

D.d1.ShowSave=0

点击查看答案

第10题

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”（Name属性值为mnuMenu)，然后为其设计两个子菜

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项＜控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId；InxId+1 【】mnuDyn(InxID) mnuDyn(InxlD)，Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题明细

联系客服

购买搜题卡

考试指南全部 >

陕西省中级消防员报考条件初级消防员证书查询网站官方资格证遗失了怎么做初级消防员练习题复习的时候怎样运用试题跟章节习题山东省消防员中级报考条件中级建造师消防员报考条件消防员操作证中级报考条件辽宁消防设施操作员报考时间消防设施操作员报考条件介绍江西2023年消防设施操作员报名条件大连2023年消防设施操作员报考条件

下载APP

关注公众号

TOP