66问答网
所有问题
当前搜索:
vb生成随机数组
关于
VB
的题。。。
答:
认真学习总是好的...说说思路
随机生成数组
就不用说了 显示也不用说了 判断可用 if instr(text1.text,text2.text)>0 then msgbox "警告内容"删除 text3.text=replace(text1.text,text2.text," ")
vb
.net 画图问题
答:
Public Class Form1 Public myPen As New System.Drawing.Pen(System.Drawing.Color.Red) Public formGraphics As System.Drawing.Graphics Private r As Integer = 5 '点半径 Private data(10) As System.Drawing.Point '数据点 Private link(10, 10) As Integer Private Sub Bu...
vb
程序设计,急求!!!
答:
窗体TEXT1显示
随机数组
1、TEXT2显示随机数组2、TEXT3显示排序结果 单击Command1
随机生成
两个数组并分别显示各组元素到TEXT1和Text2,单击Command2显示排序结果 为窗体添加下列代码:'通用位置声明3个数组Dim a1(10) As IntegerDim a2(10) As IntegerDim a3(10) As IntegerSub saveRndNum2Arrays() '...
利用
VB
传输GPS数据,也可以是传输GPS格式的随即数据
答:
下图是处理数据的,用
数组
去操作。还算比较简明的操作。不知道对你有没有帮助。Dim a() As Stringa = Split("$GPGGA(固定的),***(当下时间),***点***(*是
随机
数字),N或S,***点***,E或W,1或0,1至10 之间随机数,-9999至9999之间的随机数,M,,,*1F", ",")For i...
vb
要考试了,有好多题目还不会,请高手帮忙。谢谢
答:
第一题:利用rand()函数
生成随机
数,然后利用for语句循环就可以了。第二题:差不多把。3.字符串之间的比较。s.length的比较就可以了。不会很难。4.同3一样。。5.sort
Arrays
()不会很难。6。同理。7.用比较的方法一个i个比较。8.这个不知道哦啊。9.这条问题要看看书了,我也没有十足把握...
求解此道题
vb
代码
答:
Dim Num(9) As Long '定义一个
数组
Dim TmpNum As Long '定义一个临时变量 For i = 0 To 9 Randomize Num(i)=Val(Rnd * 90 + 10) '
随机生成
10个2位数,并且加入到数组中 Next for i = 0 To 8 for j = i + 1 to 9 if Num(j) < Num(i) then '如果Num(j) <...
急求
vb
程序,
随机
显示1至40间的数字,同时显示数字对应人名
答:
Dim srt(1 To 40) As String Private Sub Command1_Click()Dim RanDom, MaxiMum MaxiMum = UBound(srt) + 1 Randomize '/**
随机
取值初始化**/ RanDom = Int(Rnd * MaxiMum) + 1 '获取随机值 msgbox RanDom & srt(RanDom)End Sub Private Sub Form_Load()srt(1) = "我"srt(2) = ...
VB
实现
数组
插入
答:
j + 1) = t End If Next jNext iFor i = 1 To 6 Print a(i);Next iPrintEnd Sub Private Sub Form_Load()Label1.Caption = "请输入要删除或插入的数"Text1 = ""Command1.Caption = "插入"Command2.Caption = "删除"Command3.Caption = "
生成随机
序数"End Sub ...
请教
vb编程
随即
生成
3个10000以内的正整数,并从小到大排列输出,谢谢先...
答:
这个很简单的,你要掌握RND()函数,他代表
生成
一个
随机
数,范围在0-1之间,另外,你还要学会
array
.sort的用法,他是用于
数组
排序,默认是升序。Dim a(2)As Integer '定义数组 a(0)= 10000 Rnd()’数组赋值 a(1)= 10000 Rnd()a(2)= 10000 Rnd()
Array
.Sort(a)’数组排序 MsgBox(a(0)&...
VB
代码解答(关于
数组
排序)
答:
Priate Sub Form_Click()Dim a() As Integer //定义
数组
,长度不定 n = Val(IputBox("n")) //确定数组输入个数 ReDim a(i To n) As Integer Randomize //语句初始化
随机
数
生成
器 For i = 1 To n a(i) = Int(Rnd * 101 + 100) //强制转换成整形 Print a(i); ...
棣栭〉
<涓婁竴椤
43
44
45
46
48
49
50
51
52
涓嬩竴椤
灏鹃〉
47
其他人还搜