当前搜索：

vb任意输入三个数字

从1、2、3、4、5、6这六个数字中任取3个组成三位数,,其中能被6整除的有...答：Debug.Print "能被6整除的三位数的个数是：", m Debug.Print "能被6整除的三位数分别是：", n End Sub --- '从9个数字取6个是这样编写（注意下面代码包括百位是0的情况：如036）Private Sub Form_Click()Dim a(9) As Long Dim i As Long For i = 0 To 9 a(i) = 10 Next Dim...

vb编程数字小键盘,1234567890答：键盘键与虚拟键码对照表字母和数字键数字小键盘的键功能键其它键键键码　键键码键键码键键码 A　65 0 96 　F1 112 Backspace 　8 B　66 1 97 　F2 113 Tab 9 C　67 2 98 　F3 114　　Clear 　12 D　68 3 99 　F4 115　　Enter 　13 E　69 4 100　F5 116　...

由键盘输入3个数字,试编程判断他们是否可以构成一个三角形。如果能构成...答：Dim a As Double, b As Double, c As Double Dim p As Double, S As Double a = InputBox("a?")b = InputBox("b?")c = InputBox("c?")If a >= b + c Or b >= a + c Or c >= a + b Then MsgBox "由长为" & a & "、" & b & "、" & c & "的三条线段...

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编程,在文本框(text1输入一个三位数据,单击窗体后,在窗体打印输出改数...答：Private Sub Form_Click()Dim d As Integer,s As String d=Val(Text1.Text)Print "方法一"Print "百位数：";d\100 Print "十位数：";d\10 Mod 10 '也可以用 d Mod 100 \10 Print "个位数：";d Mod 10 Print s=Right(Text1.Text,3);Print "方法二"Print "百位数：";Left(s,...

vb 输入一个任意长度的正整数答：通过这段VBA代码，我们旨在实现从用户输入中提取任意长度的正整数并进行求和操作。首先，定义变量mSum并初始化为0，以便用于累加每个数字值。接着，利用for循环遍历用户输入文本框中的每一个字符。循环的结束条件设定为文本框长度。在循环体内，使用val函数将当前字符转换为整数值，然后与mSum相加。这里mid...

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 数字组合答：Private Sub Command1_Click()Dim i As Byte, j As Byte, k As Byte Dim S1 As String, S2 As String For i = 1 To 4 For j = 1 To 4 S1 = S1 & CStr(i * 10 + j) & "、"For k = 1 To 4 S2 = S2 & CStr(i * 100 + j * 10 + k) & "、"Next k Next j ...

vb 求3位数的中间数答：'建一个文本框，在里面输入数字，回车即得到中间数 '代码如下：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim result As Single Dim a As Integer If KeyAscii = 13 Then a = Len(Text1.Text)If a Mod 2 = 0 Then result = (Val(Mid(Text1.Text, a / 2, 1)) + Val(Mid(...

vb,如图,要哪里加什么才能使10个数字横着排列答：Private Sub Codmax_Click() Dim i As Integer, a(1 To 10), max As Integer, b As Integer For i = 1 To 10 a(i) = InputBox("请输入第" & CStr(i) & "个数", "请任意输入10个数字") Print Tab(3 * i); a(i); '如果输入的都是两位数，这一句改成这样...

<涓婁竴椤 1 2 3 4 5 6 7 8 9 10 涓嬩竴椤

其他人还搜