一个vb编程的问题求高手指教一下程序，要求：有大小写字母和数字组成的16位组合，字母和数字随机排列

Question

一个vb编程的问题求高手指教一下程序，要求：有大小写字母和数字组成的16位组合，字母和数字随机排列的数，看第8位，如果第8位是数的则显示机电，如果第8位是字母的话则显示三星，，而且还得验证是不是16位的，跪求大神，感激不尽

Answer 1

dim s as string
s=inputbox("输入16位字母数字")
if len(s)<>16 then
msgbox("不是16位数")
else
if mid(s,8,1)>="a" and mid(s,8,1)<="z" or mid(s,8,1)>="A" and mid(s,8,1)<="Z" then
print "三星"
else
if val(mid(s,8,1))>=0 and val(mid(s,8,1))<=9 then print "机电"
end if
end if追问

完整的有某？

追答

Private Sub Command1_Click()
Dim s As String
s = InputBox("输入16位字母数字")
If Len(s) 16 Then
MsgBox ("不是16位数")
Else
If Mid(s, 8, 1) >= "a" And Mid(s, 8, 1) = "A" And Mid(s, 8, 1) = 0 And Mid(s, 8, 1) <= 9 Then Print "机电"
End If
End If
End Sub

建一个命令按钮，这是完整代码

追问

谢谢

在EXCL编写这个程式可以运行起来吗

追答

应该可以。
不过个别语法格式略有不同。

追问

恩

追答

求采纳~~

追问

运行不了，咋回事

追答

是在VB里运行吗？

追问

用VB写在excll下运行

追答

早说啊，语法格式会略有不同

比如 excel里面不支持print方法，命令按钮的名称也不同

只要把print换成cells（1，1）＝即可，意思是在第一行第一列也就是A1显示出来，当然也可以选择别的单元格显示。另外，第一行的command1改成commandbutton1