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

查看答案

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

您可能会需要：

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

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

更多“在窗体上有三个控件：名称为Label1的标签控件、名称为Te…”相关的问题

第1题

以下程序找出50以内所有能构成直角三角形的整数组。请在程序【】处填上正确内容。 Private Sub Command1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if【】then Print a; b; c Next b Next a End Sub

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

点击查看答案

第2题

下图是应用程序的窗体，要求用户选中复选框Check1后，文本框Text1中的文字以粗体显示，选中复选框Check2后，文本框Text1中的文字以斜体显示，单击“关闭”按钮Command1后结束应用程序运行。 Private Sub Check1_ Click () if【】then Text1. FontBold = True Else Text1. FontEold =【】 End if End Sub Private Sub check2_ click() if【】then Text1. FontItalic = False Else Text1. FontItalic = True End if End sub Private Sub Command1_ Click() 【】Me End Sub

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

点击查看答案

第3题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【】As 10 Open "d:\a2.txt" for Output As 20 do while【】 Line Input 10, Ch 【】 Loop Close 10 Close 20 End Sub

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

点击查看答案

第4题

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if【】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【】then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub

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

点击查看答案