vb的常用简单算法（VB简单算法）

本文目录

• VB简单算法
• 一个VB的算法求教
• VB 的基本选择排序算法谁能讲一下基础一点的
• VB 算法问题(简单高分)
• VB共有哪些算法（所有）
• VB冒泡排序算法
• VB算法：从字母数字组成的字符串中找出所有大写字母，并逆序输出 越简单越好
• vb三种基本排序算法

VB简单算法

Option Explicit
Private Sub Command1_Click()
Dim r As Integer, n As Integer
Dim strBin As String
strBin = ""
n = Val(Text1)
Do
r = n Mod 2
strBin = r & strBin ’十进制转二进制
n = n \ 2
Loop While n 《》 0
MsgBox strBin
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim numDec As Long
For i = 1 To Len(Text1) ’二进制转十进制
If Mid(Text1, i, 1) 《》 "0" And Mid(Text1, i, 1) 《》 "1" Then MsgBox "不是二进制数值": Exit Sub
Next
numDec = 0
For i = 1 To Len(Text1)
numDec = numDec + Val(Mid(Text1, i, 1)) * 2 ^ (Len(Text1) - i)
Next
MsgBox numDec
End Sub
基础代码，通俗易懂，哈哈！！

一个VB的算法求教

有人说：程序 = 算法 + 数据结构，你这个问题的关键是如何把现实世界的数据，转换成程序中的数据存储结构。简单的说，你这些数据如何存放？
比如：最常用的数组，因为是5个顶点，可以用5个一维数组，每个一维数组分别表示5个顶点，而每个数组里的数据，表示相连的顶点编号。
比如，本例的数据可以如下：
d1(1) = 0:d1(2) = 2:d1(3) = 3:d1(4) = 4:d1(5) = 5
d2(1) = 1:d2(2) = 0:d2(3) = 3:d2(4) = 0:d2(5) = 0
d3(1) = 1,d3(2) = 2:d3(3) = 0:d3(4) = 4:d3(5) = 0
d4(1) = 3:d4(2) = 0:d4(3) = 3:d3(4) = 0:d4(5) = 5
d5(1) = 4:d5(2) = 0:d5(3) = 0:d5(4) = 4:d5(5) = 0
0表示没有连接

VB 的基本选择排序算法谁能讲一下基础一点的

实例：

Private Sub Form_Click()
Dim a(4) As Double
Dim n As Double
Dim i, j, k, t
For i = 0 To 4
a(i) = InputBox("请输入：" , "选择法排序")
Next i
For i = 0 To 3
k = i
For j = i + 1 To 4
If a(k) 》 a(j) Then k = j
Next j
If k 《》 i Then t = a(k): a(k) = a(i): a(i) = t
Next i
For i = 0 To 4
Print a(i)
Next i
End Sub

VB 算法问题(简单高分)

一百呀！！我要加分哦，C语言编，VB编
先C吧！
#include "stdio.h"
main()
{
int i,j,k,l,m,n;
long int sum=0;SUM计总数为多少组合！
for(i=0;i《9;i++)
for(j=0;j《9;j++)
for(k=0;k《9;k++)
for(l=0;l《9;l++)
for(m=0;m《9;m++)
for(n=0;n《9;n++)
sum++;
printf("%d,%d,%d,%d,%d,%d\t",i,j,k,l,m,n); 输出6个组合！
printf("%l",sum);
}
VB编法一样！
Private Sub Command1_Click()
Dim i, j, m, n, k, l, sum, s
sum = 0
For i = 0 To 5
For j = i + 1 To 6
For m = j + 1 To 7
For n = m + 1 To 8
For k = n + 1 To 9
For l = k + 1 To 9
s = s & i & j & m & n & k & l & vbCrLf
sum = sum + 1
DoEvents
Next
Next
Next
Next
回帖，是对朋友的帮助 请大家帮忙
评分，是对帮助的肯定 按感觉给分

VB共有哪些算法（所有）

所谓算法，就是你解决一个问题所运算的方法，VB（或者其它程序语言）只提供基本语句，例如加减乘除、平方根、反切、幂、正余弦等等，算法是靠你自己去编写的，所以说算法是无穷无尽的！

VB冒泡排序算法

Option Base 1

Private Sub Command1_Click()

Dim a

Dim b As Integer

Dim i As Integer

Dim j As Integer

a = Array(6, 3, 7, 8, 2, 1)

Print "排序前为";

For i = 1 To 6

Print a(i);

Next i

For i = 1 To 5

  For j = 1 To 6 - i

     If a(j) 》 a(j + 1) Then

      b = a(j + 1)

      a(j + 1) = a(j)

      a(j) = b

      End If

    Next j

 Next i

 Print

 Print "排序后为";

 For i = 1 To 6

   Print a(i);

 Next i

End Sub

VB算法：从字母数字组成的字符串中找出所有大写字母，并逆序输出 越简单越好

假设你的字符串已经在变量s里面了：

Sub 按字符逆序输出大写字母()
    Dim i As Integer, s As String
    Dim x As Integer, c As String
    Dim arr(1 To 26) As Integer
    s = InputBox("输入字符串")
    For i = 1 To 26
        arr(i) = 0
    Next i
    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        If c 》= "A" And c 《= "Z" Then
            x = Asc(c) - Asc("A") + 1
            arr(x) = arr(x) + 1
        End If
    Next i
    c = ""
    For i = 26 To 1 Step -1
        If arr(i) 》 0 Then c = c & Chr(Asc("A") + i - 1)
    Next i
    MsgBox "你的字符串中出现的大写字母有：" & c
End Sub

vb三种基本排序算法

三种基本排序算法（与哪种编程语言无关）：
冒泡排序算法、选择排序算法、插入排序算法