在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10,Min属性为0),然后画两个标题分别为“慢”和“快”的标签。程序运行后,移动滚动块,如果滚动块位于滚动条的正中间位置,则在文本框中显示“适中”;如果滚动块位于滚动条的正中间位置的左侧,则在文本框中显示“慢”;如果滚动块位于滚动条的正中间位置的右侧,则在文本框中显示“快”,如下图所示。请填空。 Priva
相似题目
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim c As Integer,n As Integer For c=0 To 50 c=c+3 n=n+1 Ifc>10Then Exit For Next c Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10)As Integer Dim I,j As Integer For I=1 To 3 For j=2 To 4 array1(I,j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()
-
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 DoWhilex<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是()
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后,单击命令按钮,在文本框中显示的值是______。(5.0分)
-
(16 )在窗体上画两个单选按钮(名称分别为 Option1 、 option2, 标题分别为 “ 宋体 ” 和 “ 黑体 ” ) 、 1 个复选框(名称为 check1, 标题为 “ 粗体 ” )和 1 个文本框(名称为 text1,text 属性为 “ 改变文字字体 ” ) ,窗体外观如图所示 。 程序运行后 , 要求 “ 宋体 ” 单选按钮和 “ 粗体 ” 复选框被选中 , 则以下能够实现上述操作的语句序列是
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
-
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名数为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示。请填空。
-
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在()处填入适当的内容,将程序补充完整。
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4
-
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Priva
-
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
-
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ______。
-
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Texttext=“”Call P1(x,y,z)TextText=Str(z)End SubSub P1(ByVal a As Integer,By
-
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:PrivatSuForm_Load()。程序运行后,如果按Shift+F2键,则文本框中的内容是()
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在 【6】 处填入适当的内容,将程序补充完整。 Private Sub Form_Load()Command1.Enabled=False End Sub Private Sub Text1 【6】 ()Com
-
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() Text1.Text = InputBox("请输入数据1") Text2.Text = InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open"c:est.dat"For ______ As 1 For i=1 to Len(Text1.text)
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open"c:est.dat"For Output As 1 For I=1 to Len(Text1.text
-
在名称为Form1的窗体上画一个文本框,名称为Text1,其宽度为1000;再画一个滚动条,名称为HS1。其刻度值的范围是1000—2000。请编写滚动条的Change事件过程,程序运行后,如果移动滚动框,则可按照滚动条的刻度值改变文木框的宽度。运行时的窗体如下图所示。程序中不能使用任何变量,事件过程只能写一条语句。*注意:存盘时必须存放在考生文件夹下,工程文件名为sjt12.vbp,
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open "C:est.dat" For______As 1 For i=1 to Len(Text1.text)
-
在窗体上画一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个名称为 C1、标题为“存盘”的命令按钮,编写适当的事件过程。程序运行时,如果单击“存盘”命令按钮,则打开保存文件对话框,并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: my documents”。请填空。 Private Sub C1_ Click() CD1. InitDir
-
在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。请填空。 Private Sub Option1_Click(Index As Integer)Select Case 【10】 Case 0 a=“宋体” Case 1 a=“黑体” Case 2 a=
推荐题目
- 在TT系统中,故障最大持续时间原则上不得超过()。
- ()在浓硫酸催化作用下能和高沸点不饱和化合物发生共聚反应。
- 技师甲说:强制降档滑阀的移动通过机械力控制;技师乙说:节气门阀的移动通过液力控制。谁正确?()
- 雅典城邦民主制的内容有哪些?
- 数据修正权限由()设置。
- 在ADI上的速度带上,指令空速用什么符号来表示()?
- 由于农业科研和农业科技推广活动具有典型的外部效应,农业科研成本和收益往往是不相称的,因此,应主要由企业承担农业科技投入。
- 道家健身术其理论源于老、庄,主张以养气为主,以提高生命能力,提出了“导引”、“养形”,强调了练气以养生的观点。( )
- 设有如下声明:Dim x As Integer如果Sgn(x)的值为-1,则x的值是A.整数B.大于0的整数C.小于0的整数D
- 下列关于火灾报警信号的发出,说法正确的是()