帮忙看看VB代码，随机生成n个不重复小写字母

电脑 2022-10-30

在vb程序中如何编辑代码随机产生一个大写或小写字母

1、大写字母对应的ASCII码的范围是65~89，因此随机生成65~89之间的数字，生成对应的大写字母即可；

2、打开VB6.0，新建一个标准exe工程，界面上新建一个按钮和一个文本框；

3、按钮代码如下：

PrivateSubCommand1_Click()

Text1.Text=""

DimnAsInteger

Randomize

n=Int(Rnd*25)+65

Text1.Text=Chr(n)

EndSub

4、运行工程，生成随机的大写字母；

求助高手用VB程序生成字母的不重复大小写组合

递归程序

Form1中，放置Command1和Text1，

Text1的MultiLine属性设为True

Text1的ScrollBars属性设为3-Both

以下是代码：

DimMyWorkAsString

SubWork(LevelAsInteger,DepAsInteger)

IfDep>LevelThen

Text1=Text1&MyWork&vbCrLf

ExitSub

EndIf

MyWork=MyWork&Chr(Dep+96)

WorkLevel,Dep+1

MyWork=Left(MyWork,Len(MyWork)-1)

MyWork=MyWork&Chr(Dep+64)

WorkLevel,Dep+1

MyWork=Left(MyWork,Len(MyWork)-1)

EndSub

PrivateSubCommand1_Click()

DimDigAsInteger

Dig=InputBox("字母位数？")

MyWork=""

Text1=""

WorkDig,1

EndSub

效果如图！

VB利用随机函数小写英文字母

你都已经有答案了，还求什么？

Dim xs(40) As String

Private Sub command1_click()

X1 = Asc("a")

X2 = Asc("z")

For k = 1 To 40

x = Int(97 + Rnd * 26)

xs(k) = Chr(x)

Picture1.Print xs(k);

Next k

End Sub

Private Sub command2_click()

For k = 1 To 39

For j = k + 1 To 40

If xs(k) > xs(j) Then

t = xs(k): xs(k) = xs(j): xs(j) = t

End If

Next j

Next k

For k = 1 To 40

Picture2.Print xs(k);

Next k

End Sub

vb编码，就是如果通过vb程序编辑代码随机产生一个大写或小写字母，怎么样做？

既然拆开会，那你可以通过程序生成 1到46之间的随机整数，分别对应46个字母（包括大小写），然后根据随机数值对应相应的字母即可。

用vb编程随机产生15个不重复的英文字母

给你一个完整程序吧： Dim c(1 To 15) As String Dim i As Integer, j As Integer, a As Integer Randomize Timer a = 65 + Int(Rnd * 26) + 32 * Int(Rnd * 2) c(1) = Chr(a) For i = 1 To 14 Do While True 'Not f a = 65 + Int(Rnd * 26) + 32 * Int(Rnd * 2) For j = 1 To i If c(j) = Chr(a) Then Exit For Next j If j > i Then

标签：编程语言信息技术编程随机 vb程序