首页 > 计算机应用技术> 网页设计与制作

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

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

搜题

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

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

[主观题]

窗体上有4个文本框控件数组text1（)和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。

窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。

窗体上有4个文本框控件数组text1（)和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。 Dim x(3)As Integer Private Sub Command1_Click () For i = 0 To 3 x(i)=【】 Next i For i = 0 To UBound(x)- 1 For j = i To UBound(x) If【】Then t = x(i) x(i)= x(j) x(j)= t End If Next j Next i For i = 0 To 3 Text1(i) .Text = Str(x(i)) Next i End Sub

答案

查看答案

发布时间：2022-12-04

更多“窗体上有4个文本框控件数组text1（)和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。”相关的问题

第1题

已知在窗体上有一个文本框控件，它的名称为Text1，且输入的字符全部为数字，现在要把该字符转换为整

数送给整型变量C，所用到的语句是【】。

点击查看答案

第2题

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1（设置显示文

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。

Private Sub Check1_Click() If Check1．Value=【】Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click() Text1．【】 End Sub

点击查看答案

第3题

在窗体上有三个控件：名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚

动条控件。程序的功能是通过滚动条移动Label1，并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。 Private Sub form_ Load() HScroll1.Max = form1. Width HScroll1. Min= 0 HScroll1.LargeChange = 50 HScroll1.smallChange = 10 Text1.Text = HScroll1.Value HScroll1, Value =0 Label1.Left = HScroll1.Value End Sub Private Sub HScroll1【】 Text1.Text = NScroll1.【】 Label1.Left = HScroll1.Value End Sub

点击查看答案

第4题

以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间，刷新的时间间隔由滚动条来设定。窗

体中有三个控件：文本框控件Text1用来显示当前时间，水平滚动条控件Hscroll1用来设置Timer1控件发生Timer事件的时间间隔，计时器控件Timer1用来控制每隔一定的时间在Text1中显示一次时间。程序运行的界面如图20-11所示，

代码如下，请填空。 Private Sub HScroll1_Change() Timer1．Interval=【】 End Sub Private Sub Timer1_【】() Text1．Text=Time End Sub

点击查看答案

第5题

设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的

信息，以下能实现该操作的语句是（）。

A．Text1.MaxLength=0

B．Text1.Enabled=Flase

C．Text1.Visible=Flase

D．Text1.Width=0

点击查看答案

第6题

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

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

点击查看答案

第7题

程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本

。程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。 Option Explicit Private【】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【】 Else Text1.Text="" End lf Print“程序运行完毕，可再双击窗体” End Sub

点击查看答案

第8题

有一个登录窗体Forln1，窗体上有一个用于输入密码的文本框Textl和一个验证按钮Command1，已经设置单击该按钮后执行宏Macro1。以下能够正确运行宏Macro1的操作是( )。

A.双击数据库窗口中的宏Macro1

B.单击登录窗体中的验证按钮Command1

C.在文本框Text1中输入密码后按＜Enter＞键

D.在VBA程序Module1中运行宏Macro1

点击查看答案

第9题

在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序如下：Private Sub Timer1_（)TxtTime.text=Time End Sub在下划线上应填入的内容是（)。

A.Enabled

B.Visible

C.Interval

D.Timer

点击查看答案

第10题

在窗体上有一个文本框控件，名称为TxtTime;一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是()。

A.Visible

B.Timer

C.Interval

D.Enabled

点击查看答案

第11题

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表

正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click() Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To【】 r=Int(Rnd*2) If r=【】Then n1=n1+1 Else n2=n2+1 End If Next TcxtText=n1 TextText=n2 End Sub