00问答网
所有问题
当前搜索:
vb点击命令按钮文本框出现字
vb
题,三个标签,一个
文本框
,两个
命令按钮
,编写一计算机自动出题并判 ...
答:
Private Sub command1_click() '出题 Randomize Label1 = Int(Rnd * 9) + 1 '如果要两位数就把9改成99 Randomize Label3 = Int(Rnd * 9) + 1 Select Case Int(Rnd * 4) + 1 Case 1 Label2 = "+"Case 2 Label2 = "-"Case 3 Label2 = "×"Case 4 Label2 = "÷"End ...
VB
编程使用标签输入
文字
,利用
命令按钮
组和选项按钮组改变标签里文字的字...
答:
sub form_load()label1=inputbox("输入标签
文字
")end sub sub command1_click(index as integer)if index=0 then label1.fontname="宋体"else label1.fontname="黑体"end if end sub sub option1_click(index as integer)if index=0 then label1.fontsize=9 else label1.fontsize=16 end ...
vb
答案 怎样设计代码使
点击命令按钮
,标签里
出现
时钟控件的时间_百度知 ...
答:
使用TImer控件,设置intrval属性值为100,意为毫秒,在代码中编写label1的caption属性为当前系统时间,即date()
二级
VB
全国历年上机试题
答:
在Form1的窗体上画一个
文本框
,其名称为Text1;再画两个
命令按钮
, 其名称分别为C1和C2,标题分别为"
显示
"和"退出",编写适当的事件 过程。程序运行后,在窗体加载时使"退出"按钮不可用,如果
单击
"显示"按钮,则在文本框中显示"等级考试",并使"退出"按钮可用,此 时如果单击"退出"按钮,则结束程序,程序运行情况如...
如何实现
VB
的
命令按钮
command1
单击
后按钮上的
文字
变成红色,再单击变 ...
答:
5妙)enabled设为false(不可用)Dim color as long 在Command1_click加入以下代码 color=command1.backcolor Command1.backcolor=
vb
red Timer1.enable=true 说明,让
按钮
颜色变为红色,让时间记可用…双击timer1 在Timer1_timer事件中添加代码 command1.backcolor=color timer1.enabled=false ...
vb
6.0 中
文本框
中输出 数值总和
答:
建立三个
文本框
,text1,text2.text3 text2和text3的Visible属性设为F 清空text1的text 建立六个
按钮
command1的caption属性改为+ command2的caption属性改为- command3的caption属性改为 command4的caption属性改为/ command5的caption属性改为= command6的caption属性改为 整除 command7的caption属性改...
在
VB
中怎样用
按钮
清除
文本框
中的文本
答:
在
VB
中怎样用按钮清除文本框中的文本的方法。如下参考:1.首先,在表单中添加一个文本框。2.
单击文本框
,在“属性”窗口中设置文本框的属性,然后清空文本内容。3.将文本框的启用属性设置为False。4.在窗口主体上添加一个
命令按钮
,如下图所示。5.在属性窗口中,将命令按钮的标题属性设置为“允许进入...
vb
中
文本框
可以输出的内容如何在列表框里输出?
答:
以下程序实现:在
文本框
输入内容,按回车键(Enter键)后,文本框中的内容输出到列表框。1)在窗体上布置一个TextBox控件和一个ListBox控件 2)代码 Option ExplicitPrivate Sub Form_Load() ' 窗体启动时,清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPr...
...在窗体上建立1个
文本框
、1个图片框和3个
命令按钮
,
答:
Private Sub Command1_Click()If Text1.Text = "123" Then '口令 MsgBox "口令确认!", 44, "提示"Image1.Picture = LoadPicture("图片路径")Else MsgBox "口令错误!", 64, "提示"Text1.Text = ""End If End Sub Private Sub Command2_Click()End End Sub Private Sub Command3_Click(...
VB
设计一个程序,能够通过
命令按钮
改变标签
框
中
文本
的颜色和
字体
,在线等...
答:
假设标签
框
的名字为labMain。改颜色:Me.labMain.ForeColor = 【打上颜色,如
vb
Red】改
字体
:Me.labMain.FontName = 【输入字体名称,如“宋体”】改字体大小:Me.labMain.FontSize = 【输入大小,如20】改为粗体:Me.labMain.FontBold = 【True or False】还有几个,就不一一列出来了。
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜