首页 > 大学专科> 电子信息

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

[主观题]

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显

示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【】 End Sub

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上建立—个名称为Text1的文本框，用来接收一个整数。…”相关的问题

第1题

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数（

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用 Private Function digit(ByVal m As Integer，ByVal n As Integer)As Integer Dim i As Integer For i=1 To n-1 m=m\10 Next i digit=【】 End Function Private Sub Command1_Click() Dim m As Integer，n As Integer，k As Integer m=Val(Text1.Text) n=Val(TextText) k=【】 TextText=Str(k) End Sub

点击查看答案

第2题

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能

将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "c:\test.dat"For【】As 1 For i=1 to Len(Text1.text) print1，mid(Text1.Text，i，1) Next Close i End Sub

点击查看答案

第3题

编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。窗体标题设置为“售货机”

编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。

编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。窗体标题设置为“售货机”编

窗体标题设置为“售货机”，窗体上的两个标签(分别命名为Lab1和Lab2，标题为“货物的数据量(个)：”和“贸物的单价(元)：”)”两个文本框分别命名为Text1和Text2，命令按钮名称为Cmd1(标题为“总价=”，结果显示在名为Pic1的图片框中)。当用户输入货物的数量与单价后，单击“总价=”按钮，输出正确的结果。

注意：

在存盘时，工程文件名为execise60.vbp，窗体文件名为execise60.frm。

点击查看答案

第4题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【】() Command1.Enabled=True End Sub

点击查看答案

第5题

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

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

点击查看答案

第6题

在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() Text1．Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为【】和【】。

点击查看答案

第7题

在窗体上有三个控件：名称为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

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

点击查看答案

第8题

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

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

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

点击查看答案

第9题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮

。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。请在【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案

第10题

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为

True，然后编写如下的事件过程： Private Sub Form_Click() Open“d：\test\smText1.txt"For lnput As1 Do While Not【】 Line lnput1，aspect＄ whole＄=wholes+aspect＄+Chr＄(13)+Chr＄(10) Loop Text1.Text=whole＄ Close1 Open“d：\test\smtexttxt"For Output As 1 Print 1，【】 Close1 End Sub 上述程序的功能是，把磁盘文件，mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtexttxt。请填空。

点击查看答案

湖南中本聪区块链科技有限公司版权所有 ©2024

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）