66问答网
所有问题
当前搜索:
在窗体中有一个文本框Text1
请用vb编写
一个
找出10000以内的亲密数对的小程序
答:
需要两个函数,一个因子和计算,一个因子和输出。程序
窗体
放置
一个文本框
,设置其MultiLine为True。源程序如下:Option Explicit Dim I As Long, J As Long, X As Long Private Sub Form_Load()Me.Show For I = 1 To 10000 DoEvents X = Yzh(I)If X <= 10000 And I < X Then If Yzh...
...口令"的标签;画
一个
名称为
Text1
的
文本框
;再画三个命令
答:
代码在线添加控件。Dim WithEvents
Text1
As TextBox Dim WithEvents Label1 As Label Dim WithEvents Command1 As CommandButton '注意:这三句必须是全局声明,也就是在代码的最顶端通用的部分 Private Sub Form_Load()Set Text1 = Me.Controls.Add("VB.TextBox", "Text1")With Text1 ....
在窗体
上画2
个文本框
,名称分别为
TEXT1
和text2;然后画2个标签,标题分别...
答:
Private Sub Command1_Click()For i = 0 To 3 If Option1(i).Value = True Then opt = Option1(i).Caption End If Select Case opt Case "+"result = Val(
text1
.Text) + Val(text2.Text)Case "-"result = Val(text1.Text) - Val(text2.Text)Case "*"result = Val(text1.Text...
...
在窗体
上添加一个标签和
一个文本框
以及一个命令按钮,要求文本框中...
答:
按要求
在窗体
上添加一个标签和
一个文本框
以及一个命令按钮,双击命令按钮,删除所有代码,复制如下代码到程序中 Private Sub Command1_Click()If Val(
Text1
) Mod 2 = 0 Then Label1 = "偶数"Else Label1 = "奇数"End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) '判字符...
用VB编写一程序,在
文本框
中统计在该窗口上鼠标单击的次数
答:
用VB编写一程序,在
文本框
中统计在该窗口上鼠标单击的次数可以参考下面的代码:private sub form_click()dim i as integer i=i+1
text1
.text=val(text1)+1 end sub
access中,在主
窗体
里加
一个
主窗体嵌入的子窗体的导航命令,怎么加?_百度...
答:
主
窗体中
引用子窗体中的控件,可以先引用子窗体的form属性后再引用子窗体控件属性。例如主窗体名为“ Form1”,
里面有一个
子窗体名为“Child1”。现在要求点击主窗体命令按钮后将子
窗体里文本框Text1里
的内容显示为主窗体的标签,代码可以这样写:Private Sub Command1_Click() Me.Caption = Me!
vb中Form
窗体有一个文本框
,一个列表框,一个命令按钮,两个单选按钮,代码...
答:
'Made by xkwy.Private Sub Command1_Click() List1.AddItem
Text1
.TextEnd SubPrivate Sub List1_Click() Text1.Text = List1.List(List1.ListIndex)End SubPrivate Sub Option1_Click() If List1.ListIndex < 0 Then MsgBox "You have not select item!", vbCritical List1....
设计
一个文本框
用户
在
文本框中输入什么
窗体
标题就同步显示什么 怎么...
答:
1
、首先需要选择创建
窗体
设计按钮,如下图所示。2、创建好
一个
新窗体后,右键单击窗体左上角选择属性命令,如下图所示。3、接下来需要在右侧的属性表标题处输入测试窗体,如下图所示。4、接下来需要设置好后关闭窗体,如下图所示。5、接下来需要保存窗体设计,如下图所示。6、最后需要修改窗体名称即可...
...引用其他
窗体中
的数据。 例如在form1中的
text1
中输入字符,进入form2...
答:
Form2的代码可以使用:直接输出
在窗体
上需要
一个
Label。Private Sub Form_Load()Label1.Caption = Form1.Text1.Text End Sub 这样可以实现打开窗体后立即显示Form1
文本框Text1
的文本。希望能帮助到楼主。
VB中,如何在
TEXT1
中输入百分数,
在
TEXT2中输入整数,两个相乘保留2位小数...
答:
窗体
上添加
一个
按钮,3
个文本框
,双击按钮,代码如下:Text3.Text = Format((Val(
Text1
.Text) / 100) * Val(Text2.Text), "0.00") 注意,Text1中输入百分比不要加百分号,比如87%,直接输入87就可以了。
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜