从text1文本框中输入整数a,text2文本框中输入b,判断a+b能否被b-50整除,并在text3文本框中输出结果
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (Asc("a ") <= KeyAscii And KeyAscii <= Asc("z ") Or _
Asc("A ") <= KeyAscii And KeyAscii <= Asc("Z ")) Then
KeyAscii = 0
End If
Text2.Text = StrReverse(Text1.Text)
End Sub
在比较按钮事件中写
dim a,b as integer
a=cint(text1.text)
b=cint(text2.text)
if a>b then
text3.text=a
elseif a<b then
text3.text=b
elseif a=b then
msgbox"两个数一样大!"
end if
b=val(text2.text)
if (a+b ) mod (b-50)=0 then text3.text="能" else text3.text="不能"
VB中text1.text是什么意思
text1控件的text属性,text属性是可以用来存放信息的,直接赋值号加内容,操作方法如下:1、首先打开VB软件,新建一个标准EXE,在过程中输入想要设置的控件名称。2、输入后,可以看到该控件所有能用的属性和方法。3、由于界面太小,需要向下拖曳才能看到全部。这样就可以写某个属性等于什么的属性值。4、输...
vb中text1.text
text1控件的text属性,text属性是可以用来存放信息的,直接赋值号加内容,操作方法如下:1、首先打开VB软件,新建一个标准EXE,在过程中输入想要设置的控件名称。2、输入后,可以看到该控件所有能用的属性和方法。3、由于界面太小,需要向下拖曳才能看到全部。这样就可以写某个属性等于什么的属性值。4、输...
VB程序当中,Mid(text1.Text, text1.SelStart + text1.SelLength + 1...
text1.SelStart text1文本框中选中的文本的起始位置,如果没有选中任何文本,那就是光标所在位置 text1.SelLength text1文本框中选中的文本的长度(字符数),如果没有选中任何文本,那就是0 Mid(text1.Text, text1.SelStart + text1.SelLength + 1) 也就是选中的文本之后的文本,例如"123456...
VB编程题,在文本框Text1中输入一个正整数,单击Command1,在Text2...
下面是简单实现,需要带入参数是大于等于1的正数(自己防呆)Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5)End SubPrivate Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String ...
在vb程序中,怎么设计一个设置字符格式的程序
PrivateSub_Click()IfText1.Font.Name="宋体"Then Text1.Font.Name="黑体"Else Text1.Font.Name="宋体"EndIf EndSub 修改字体(点击按钮,将Text1文本框中的字体样式在"黑体"和"宋体"间切换)(如果是修改其他属性,以此类推)只要查查相关属性值,修改还是很轻松的。
vb题,如图片,在文本框text1中输入后,再怎么想。
Private Sub Text1_KeyPress(KeyAscii As Integer)Dim k As Integer, c As Stringk = KeyAsciic = UCase(Chr(k))If c >= "A" And c <= "Z" Then '转换后是大写字母的进入判断内部处理,'非大写字母的不做处理,所以text1中的1、2和&会照原样输入text2 k = k - 3 '以小写a为例...
解释VB中Text1.Text = Input(LOF(1), #1)
input()函数的意思是从打开的文件通道1中读入一些字符,字符长度为文件的长度(第一个参数),将读出来的字符串赋值到text1文本框中。lof(1)表式文件的长度。
程序运行后,在文本框TEXT1中输入一个字符串,单击命令按纽,把字符串中偶...
Private Sub Command1_Click()Dim i As Integer i = Len(Text1.Text)If i < 2 Then Exit Sub Dim n As Integer For n = 2 To i Step 2 Text2.Text = Text2.Text & Mid(Text1.Text, n, 1)Next End Sub 张志晨
在文本框text1中输入一个字符串,单击"统计"按钮,统计其中ABCD……G出现...
Private Sub Command1_Click() Dim dc As Object, s As String, iMax As Integer, n As Integer Set dc = CreateObject("Scripting.dictionary") Dim i As Integer For i = 1 To Len(Text1.Text) s = Mid(Text1.Text, i, 1) If Not dc.Exists(s) Then dc(s...
在文本框Text1中输入圆的半径,编写程序计算圆面积和圆周长,并在窗体上...
Private Sub Command1_Click()Dim pi As Double pi = 3.1415629 Dim s As Double Dim l As Double Dim r As Double r = Val(Text1.Text)s = pi * r * r l = 2 * pi * r Print " 面积= " & s Print "周长= " & l End Sub ...
少刻纬欣: 哦 没看仔细 重来 稍等 Dim a, b As Integer a = Val(text1) b = Val(text2) If (a+b) Mod 9=0 Then text3 = (a+b)/9 Else text3 = "不能整除"
黄骅市17336218333: 从文本框text1中输入一个整数单击判断command1判断其奇偶性并在label1中显示结果 - ?
少刻纬欣: ) Else Label1;偶数".Caption = ";error, "Private Sub Command1_Click() If IsNumeric(Text1) Then Label1?其实跟上面代码的意思完全一样;---------------------', "换行; End Sub '.Caption = "!",这样好理解一些 Private Sub ...
黄骅市17336218333: VB编程:在文本框(Text1)中输入一个整数,单击标签框(Label1),找出该数的所有因子并显 - ?
少刻纬欣: Private Sub Label1_Click() Dim i As Integer Label1 = "" For i = 1 To Val(Text1) If Val(Text1) Mod i = 0 Then Label1 = Label1 + Str(i) Next End Sub
黄骅市17336218333: 一道vb编程题 在文本框1中输入一个正整数,在文本框1中按回车键表示结束输入,此时,在文本框2输出 - ?
少刻纬欣: Dim n As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then n = 0 Dim s As String s = Text1.Text For i = 1 To Len(s) If Val(Mid(s, i, 1)) Mod 20 Then n = n + 1 End If Next i Text2.Text = n End If End Sub
黄骅市17336218333: 从text1文本框中输入一个数,判断这个数是否为零或正负整数,并在text2文本框中输出结果 - ?
少刻纬欣: dim i as single i=val(text1.text) if i+abs(i)=0 then if abs(i)=0 then msgbox"输入的数值为0" end sub end if text2.text=text1.text msgbox"数值为负数" else text2.text=text1.text msgbox"数值为正数" end if end sub
黄骅市17336218333: 在Text1输入整数a、Text2输入整数b,判断a和b的大小,并把较大的数在Text3文本框中输出. - ?
少刻纬欣: 在比较按钮事件中写 dim a,b as integer a=cint(text1.text) b=cint(text2.text) if a>b then text3.text=a elseif a text3.text=b elseif a=b then msgbox"两个数一样大!" end if
黄骅市17336218333: vf表单如何操作 在文本框中输入一个整数,单击确定按钮时,在标签上显示出此整数的阶乘 - ?
少刻纬欣: 你在确定按钮上双击,打开其代码窗口输入 n=val(allt(thisform.text1.value)) t=1 for a=1 to nt=t*a endfor thisform.label1.caption=allt(str(t)) thisform.refresh
黄骅市17336218333: 在文本框text1中输入一个小于1000000的正整数,单击按钮,在text2中输出text - ?
少刻纬欣: dim a,s as long a=val(Text1.text) while a>0 s=s+a mod 10 a=a\10 wend Text2.text=str(s)
黄骅市17336218333: VB编程:编写程序,在文本框(Text1)中输入一个整数,点击图片框,找出该数的所有因子并显示在该 - ?
少刻纬欣: '给个参考程序.朋友.Private Sub Picture1_Click() Dim n As Integer, i As Integer n = Val(Text1.Text) For i = 1 To n If n Mod i = 0 Then Picture1.Print i Next i End Sub
黄骅市17336218333: VB编程,急求,从文本框1中输入的 一个由字母和数字组成的字符串中找出所 有的数字并依次连接,再输?
少刻纬欣: Private Sub Command1_Click() T = "" For i = 1 To Len(Text1) If Mid(Text1, i, 1) Like "[0-9]" Then T = T & Mid(Text1, i, 1) End If Next Text2 = T End Sub