99问答网
所有问题
当前搜索:
请输入B的值在窗体上画一个
...名称为cmd
1
,单击命令按钮
在窗体上
输出S
的值
答:
Private Sub Cmd1_Click()Dim n As Integer Dim S As Double Dim i As Integer n = InputBox("
请输入一个
不大于170的自然数")S = 1 For i = 1 To n S = S * i Next i Print "S="; S End Sub
loop=0; while (((count<min_N)|(count>max_N))&(loop<30)) if co...
答:
B
、网状模型 C、层次模型 D、以上三个都是 11.
在窗体
(名称为Form1)
上画一个
名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中
输入
一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text...
在名称为Form
1的窗体上画一个
文本框,
答:
Private Sub Form_Click()Text
1
.Left = 0 '移到左上角 Text1.Top = 0 End Sub Private Sub Text1_Change()Text1.Top = 0 '移到右上角 Text1.Left = Me.Width - Text1.Width End Sub
如何利用VB编程,
输入
圆的半径,计算并输出圆的面积。
答:
1、打开vb,选择左边工具栏的commandbutton。2、
在窗体上
拖出
一个
按钮,更改上面的文字为“单击
输入
半径”。3、双击按钮,在弹出的code代码窗口中,输入如下代码。4、选择工具栏中的启动按钮进行调试。5、单击按钮,会弹出一个对话框,在里面输入半径3。6、会在窗体上打印出计算出的面积
的值
。
(2) 在名称为Form
1的窗体上画一个
文本框,名称为Text1,其初始内容为0...
答:
无语了,这是最基础的啊!下面字符你把保存为Form
1
.frm VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1"ScaleHeight = 3090 ScaleWidth = ...
VB,如何在form.show 时
在窗体上画
线?
答:
Private Sub UserForm_Activate()Call drawline(a,
b
)End Sub 要在这个事件中画线才有用,因为SHOW命令运行后,FORM就进入的LOAD事件,然后是RESIZE事件,然后ACTIVATE事件,
窗体
得到焦点才能
在上面画
线 Private Sub CommandButton1_Click()UserForm1.Hide UserForm1.Show Call drawline(a,b)End Sub 在您...
请问如何在C#中,在
一个窗体
中单击一个按钮,然后在其它窗体中
画一
...
答:
其实你自己知道怎么做,只是没尝试罢了,给其他窗体赋值会吧,那么为什么能赋值呢?你想过没有/不要总想着请教,先自己想下,在本窗体和其他
窗体画
其实没什么区别啊,只要能访问其他窗体就可以了//
在窗体上画一个
命令按钮,然后编写如下事件过程
答:
在窗体上画一个
名称为Command1的命令按钮,再画两个名称为label1.label2的标签,然后编写如下程序代码private x as integerprivate sub command2 click()x=5:y=3call proc(x,y)label1.caption=xlabel2.caption=yend subprivate sub proc(byval a as integer,byval
b
as integer)x = a*ay=b...
在名称为Form
1的窗体上画
两个文本框
答:
1. scrollbars 选3-both multiline 选true 2.passwordchar 选
VB
在窗体上
添加文本框,两个命令按钮,点击其中
的一个
,文本框内容剪切掉...
答:
'
在窗体上画一个
TEXT,两个按钮 Dim sTemp As String Private Sub Command1_Click()sTemp = Me.Text1.Text Me.Text1.Text = ""End Sub Private Sub Command2_Click()Me.Text1.Text = sTemp End Sub
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜