66问答网
所有问题
当前搜索:
vb任意输入三个数字
...想法是第一和第二个文本框
随意输入
0到100的
数字
,第
三个
答:
Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub Private Sub Text1_Change()If Val(Text1) > 100 Or Val(Text1.Text) < 0 Then Text1.Text = ""End Sub Private Sub Text2_Change()If Val(Text2) > 100 Or Val(Text2.Text) < 0 Then ...
VB
中对
3个数字
进行排列
答:
p=text1.text text1.text=text2.text text2.text=p end if if val(text2.text)>val(text3.text) then p=text2.text text2.text=text3.text text3.text=p end if label1.caption="text1.text"&"<"&"text2.text"&"<"&"text3.text"就是冒泡排序思想,不过着就
三个数
,用不着太麻烦...
vb
验证
任意
一个
三个数字
不完全相同的数
答:
Public Function yanzheng(ByVal a As Integer) As Boolean Dim res As Boolean res = False Dim x, y, z As Integer x = a Mod 10 y = (a \ 10) Mod 10 z = a \ 100 If x <> y And x <> z And y <> z Then res = True End If Return...
用
vb
怎样生成10个不重复的(1到10)随机数?
答:
vb
生成10个不重复的随机数代码:Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
VB
中怎样写1--30数字随机产生7
个数字
答:
dim i as integer dim a(i) as integer for i=1 to 7 a(i)=int(rnd*30+1)print a(i)next i 如果要30
个数字
都不一样就要用randomize在首句 切记定义类型
vb
编写一个程序,
输入任意
10
个数字
,从中找出最大和最小的数,并给出最...
答:
更好的办法是排序,先把
数字
在数组中原来的位置记录下来,然后排序后找到最大、最小数,输出结果,排序大概这么写:For i = Min To UBound(Vimt) - 1 For j = i + 1 To UBound(Vimt)ReDim SerAim(i)If Vimt(i) > Vimt(j) Then '这个语句是以小到大排序,数组的第一个就是最小...
求
VB
程序:
输入
多个
数字
随机选取1个
答:
Private Sub Command1_Click()Randomize Label1.Caption = List1.List(CInt(Rnd * (List1.ListCount - 1)))End Sub Private Sub Form_Load()Dim str As String Dim str1() As String str = InputBox("请
输入数字
,以'.'隔开", "输入数字")str1 = Split(str, ".")For i = 0 To ...
VB
连续
输入
10
数字
,显示其中奇数的
个数
和偶数的个数
答:
奇数的
个数
和 偶数的个数,如下:Dim A(10) As Double, U As Single Dim I As Integer, Jg As Integer, Og As Integer Private Sub Command1_Click()Form1.AutoRedraw = True If I = 0 Then Form1.Cls Print "
输入
的10个数是:";End If If Not IsNumeric(Text1.Text) Then MsgBox...
VB
:编写一个程序,使得
输入
一
个数字
,当点击按钮后转换为中文大写的货币表...
答:
我这个字数太多,过会补充。(图也是待会发)这个还只能算2位小数,否则。。。Option Explicit Private Function NumberToWord(ByVal Number As Long)Select Case Number Case 0 NumberToWord = "零"Case 1 NumberToWord = "壹"Case 2 NumberToWord = "贰"Case 3 NumberToWord = "叁"Case 4 N...
VB
编程:
任意输入
10
个数
,求平均值,求代码
答:
dim a%,sum!for i = 1 to 10 a=inputbox("
输入
")print a;sum=sum+a next i print print "平均值为" & sum/10
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜