vb.net - 随机索引生成器-6ren

vb.net - 随机索引生成器

转载作者：行者123 更新时间：2023-12-04 22:15:48

好的，所以我正在尝试编写一个程序来帮助我在下学期之前保持我的 Visual Basic 技能。

所以我决定创建一个随机手机号码生成器，我想出了一个问题，每当我选择“伯大尼”作为我的城市时，无论我运行多少次，它都只会拉出“342”，而不是随机的指数。下面是我的代码，也许你可以帮助我。

'======================================================

'Adam W. Schneider

'Random Cellphone number Generator

'VB 1 Refresh

'======================================================



Public Class vbform1

    'Clears the list box.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        'Clear the list Boxes

        lstPhoneNumbers.Items.Clear()
        lstBoxCity.Items.Clear()

    End Sub

    'Closes the Form.

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

    Private Sub btnExecute_Click(sender As Object, e As EventArgs) Handles btnExecute.Click

        'Determines the area code selected

        If lstAreaCodes.SelectedItem.ToString = "513" Then

            'Clears the box of previous results before displaying new results

            lstBoxCity.Items.Clear()

            'Writes the cities available for area code 513

            lstBoxCity.Items.Add("Cincinnati")
            lstBoxCity.Items.Add("Middletown")
            lstBoxCity.Items.Add("Lebanon (Warren)")
            lstBoxCity.Items.Add("South Lebanon")
            lstBoxCity.Items.Add("Mason")
            lstBoxCity.Items.Add("Little Miami")
            lstBoxCity.Items.Add("Oxford")
            lstBoxCity.Items.Add("Bethel")
            lstBoxCity.Items.Add("Harrison")
            lstBoxCity.Items.Add("Clermont")
            lstBoxCity.Items.Add("Bethany")
            lstBoxCity.Items.Add("Butlerville")
            lstBoxCity.Items.Add("Fayetteville")
            lstBoxCity.Items.Add("Felicity")
            lstBoxCity.Items.Add("Monroe")
            lstBoxCity.Items.Add("Morning Sun")
            lstBoxCity.Items.Add("Morrow")
            lstBoxCity.Items.Add("Newtonsville")
            lstBoxCity.Items.Add("Reily")
            lstBoxCity.Items.Add("Seven Mile")
            lstBoxCity.Items.Add("Shandon")
            lstBoxCity.Items.Add("Trenton")
            lstBoxCity.Items.Add("Waynesville")
            lstBoxCity.Items.Add("Williamsburg")

            'Determines the area code selected

        ElseIf lstAreaCodes.SelectedItem.ToString = "937" Then

            'Clears the box of previous results before displaying new results

            lstBoxCity.Items.Clear()

            'Writes the cities available for area code 937

            lstBoxCity.Items.Add("Aberdeen")
            lstBoxCity.Items.Add("Anna")
            lstBoxCity.Items.Add("Ansonia")
            lstBoxCity.Items.Add("Arcanum")
            lstBoxCity.Items.Add("Beavercreek")
            lstBoxCity.Items.Add("Belfast")
            lstBoxCity.Items.Add("Bellbrook")
            lstBoxCity.Items.Add("Belle Center")
            lstBoxCity.Items.Add("Bellefontaine")
            lstBoxCity.Items.Add("Blanchester")
            lstBoxCity.Items.Add("Botkins")
            lstBoxCity.Items.Add("Bowersville")
            lstBoxCity.Items.Add("Bradford")
            lstBoxCity.Items.Add("Brookville")
            lstBoxCity.Items.Add("Byhalia")
            lstBoxCity.Items.Add("Camden")
            lstBoxCity.Items.Add("Catawba")
            lstBoxCity.Items.Add("Cedarville")
            lstBoxCity.Items.Add("Centerville (Mongomery)")
            lstBoxCity.Items.Add("Christiansburg")
            lstBoxCity.Items.Add("Clarksville")
            lstBoxCity.Items.Add("Covington")
            lstBoxCity.Items.Add("Danville (Highland)")
            lstBoxCity.Items.Add("Dayton")
            lstBoxCity.Items.Add("De Graff")
            lstBoxCity.Items.Add("Decatur")
            lstBoxCity.Items.Add("Donnelsville")
            lstBoxCity.Items.Add("East Liberty")
            lstBoxCity.Items.Add("Eaton")
            lstBoxCity.Items.Add("Eldorado")
            lstBoxCity.Items.Add("Englewood")
            lstBoxCity.Items.Add("Enon")
            lstBoxCity.Items.Add("Fairborn")
            lstBoxCity.Items.Add("Famersville")
            lstBoxCity.Items.Add("Fletcher-Lena")
            lstBoxCity.Items.Add("Fort Loramie")
            lstBoxCity.Items.Add("Franklin")
            lstBoxCity.Items.Add("Georgetown")
            lstBoxCity.Items.Add("Germantown")
            lstBoxCity.Items.Add("Gettysburg")
            lstBoxCity.Items.Add("Gratis")
            lstBoxCity.Items.Add("Greenfield")
            lstBoxCity.Items.Add("Greenville")
            lstBoxCity.Items.Add("Hamersville")
            lstBoxCity.Items.Add("Higginsport")
            lstBoxCity.Items.Add("Hillsboro")
            lstBoxCity.Items.Add("Hollansburg")
            lstBoxCity.Items.Add("Huntsville")
            lstBoxCity.Items.Add("Jackson Center")
            lstBoxCity.Items.Add("Jamestown")

            'Determines the area code selected

        ElseIf lstAreaCodes.SelectedItem.ToString = "859" Then

            'Clears the box of previous results before displaying new results

            lstBoxCity.Items.Clear()

            'Writes the cities available for area code 859

            lstBoxCity.Items.Add("Alexandria")
            lstBoxCity.Items.Add("Berea")
            lstBoxCity.Items.Add("Boone")
            lstBoxCity.Items.Add("Bryantsville")
            lstBoxCity.Items.Add("Burgin")
            lstBoxCity.Items.Add("Butler")
            lstBoxCity.Items.Add("Carlisle")
            lstBoxCity.Items.Add("Cornishville")
            lstBoxCity.Items.Add("Convington")
            lstBoxCity.Items.Add("Cythiana")
            lstBoxCity.Items.Add("Danville")
            lstBoxCity.Items.Add("Falmouth")
            lstBoxCity.Items.Add("Ford")
            lstBoxCity.Items.Add("Glencole")
            lstBoxCity.Items.Add("Harrodsburg")
            lstBoxCity.Items.Add("Independence")
            lstBoxCity.Items.Add("Junction City")
            lstBoxCity.Items.Add("Kirksville")
            lstBoxCity.Items.Add("Lancaster")
            lstBoxCity.Items.Add("Lexington")
            lstBoxCity.Items.Add("Little Rock")
            lstBoxCity.Items.Add("Mackville")
            lstBoxCity.Items.Add("Midway")
            lstBoxCity.Items.Add("Millersburg")
            lstBoxCity.Items.Add("Mooresville")
            lstBoxCity.Items.Add("North Middletown")
            lstBoxCity.Items.Add("Paint Lick")
            lstBoxCity.Items.Add("Paris")
            lstBoxCity.Items.Add("Perryville")
            lstBoxCity.Items.Add("Richmond")
            lstBoxCity.Items.Add("Salvisa")
            lstBoxCity.Items.Add("Springfield")
            lstBoxCity.Items.Add("Versailles")
            lstBoxCity.Items.Add("Waco")
            lstBoxCity.Items.Add("Walton")
            lstBoxCity.Items.Add("Warsaw")
            lstBoxCity.Items.Add("Williamstown")
            lstBoxCity.Items.Add("Willisburg")
            lstBoxCity.Items.Add("Wilmore")
            lstBoxCity.Items.Add("Winchester")

            'Determines the area code selected

        ElseIf lstAreaCodes.SelectedItem.ToString = "812" Then

            'Clears the box of previous results before displaying new results

            lstBoxCity.Items.Clear()

            'Writes the cities available for area code 812

            lstBoxCity.Items.Add("Alfordsville-Glendale")
            lstBoxCity.Items.Add("Aurora")
            lstBoxCity.Items.Add("Austin")
            lstBoxCity.Items.Add("Brandon")
            lstBoxCity.Items.Add("Batesville")
            lstBoxCity.Items.Add("Bedford")
            lstBoxCity.Items.Add("Bicknell")
            lstBoxCity.Items.Add("Birdseye")
            lstBoxCity.Items.Add("Bloomfield")
            lstBoxCity.Items.Add("Boonville")
            lstBoxCity.Items.Add("Brazil")
            lstBoxCity.Items.Add("Brownstown")
            lstBoxCity.Items.Add("Bruceville")
            lstBoxCity.Items.Add("Butlerville")
            lstBoxCity.Items.Add("Campbellsburg")
            lstBoxCity.Items.Add("Canaan")
            lstBoxCity.Items.Add("Center Point")
            lstBoxCity.Items.Add("Central")
            lstBoxCity.Items.Add("Chandler")
            lstBoxCity.Items.Add("Charlestown")
            lstBoxCity.Items.Add("Chrisney")
            lstBoxCity.Items.Add("Clay City")
            lstBoxCity.Items.Add("Clearspring")
            lstBoxCity.Items.Add("Columbus")
            lstBoxCity.Items.Add("Cory")
            lstBoxCity.Items.Add("Corydon")
            lstBoxCity.Items.Add("Crandall")
            lstBoxCity.Items.Add("Crane")
            lstBoxCity.Items.Add("Cross Plains")
            lstBoxCity.Items.Add("Crothersville")
            lstBoxCity.Items.Add("Cynthiana")
            lstBoxCity.Items.Add("Dale")
            lstBoxCity.Items.Add("Decker")
            lstBoxCity.Items.Add("Dillsboro")
            lstBoxCity.Items.Add("Dubois")
            lstBoxCity.Items.Add("Dugger")
            lstBoxCity.Items.Add("East Enterprise")
            lstBoxCity.Items.Add("Edinburgh")
            lstBoxCity.Items.Add("Elberfeld")
            lstBoxCity.Items.Add("Elizabeth")
            lstBoxCity.Items.Add("Elizabethtown")
            lstBoxCity.Items.Add("Elletsville")
            lstBoxCity.Items.Add("Elnora")
            lstBoxCity.Items.Add("English")
            lstBoxCity.Items.Add("Evansville")
            lstBoxCity.Items.Add("Fairbanks")
            lstBoxCity.Items.Add("Farmersburg")
            lstBoxCity.Items.Add("Ferdinand")
            lstBoxCity.Items.Add("Flat Rock")

            'Determines the area code selected

        ElseIf lstAreaCodes.SelectedItem.ToString = "765" Then

            'Clears the box of previous results before displaying new results

            lstBoxCity.Items.Clear()

            'Writes the cities available for area code 765

            lstBoxCity.Items.Add("Albany")
            lstBoxCity.Items.Add("Alexandria")
            lstBoxCity.Items.Add("Amboy")
            lstBoxCity.Items.Add("Anderson")
            lstBoxCity.Items.Add("Arlington")
            lstBoxCity.Items.Add("Atlanta")
            lstBoxCity.Items.Add("Attica")
            lstBoxCity.Items.Add("Battle Ground")
            lstBoxCity.Items.Add("Bloomingdale")
            lstBoxCity.Items.Add("Bloutsville")
            lstBoxCity.Items.Add("Buck Creek")
            lstBoxCity.Items.Add("Bunker Hill")
            lstBoxCity.Items.Add("Burlington")
            lstBoxCity.Items.Add("Cambridge City")
            lstBoxCity.Items.Add("Carthage")
            lstBoxCity.Items.Add("Cayuga")
            lstBoxCity.Items.Add("Centerville")
            lstBoxCity.Items.Add("Chesterfield")
            lstBoxCity.Items.Add("Clarks Hill")
            lstBoxCity.Items.Add("Clinton")
            lstBoxCity.Items.Add("Cloverdale")
            lstBoxCity.Items.Add("Coatesville")
            lstBoxCity.Items.Add("Colfax")
            lstBoxCity.Items.Add("Connersville")
            lstBoxCity.Items.Add("Covington")
            lstBoxCity.Items.Add("Crawfordsville")
            lstBoxCity.Items.Add("Cutler")
            lstBoxCity.Items.Add("Dana")
            lstBoxCity.Items.Add("Darlington")
            lstBoxCity.Items.Add("Delphi")
            lstBoxCity.Items.Add("Denver")
            lstBoxCity.Items.Add("Dunkirk")
            lstBoxCity.Items.Add("Eaton")
            lstBoxCity.Items.Add("Elwood")
            lstBoxCity.Items.Add("Eminence")
            lstBoxCity.Items.Add("Fairmount")
            lstBoxCity.Items.Add("Farmland")
            lstBoxCity.Items.Add("Fillmore")
            lstBoxCity.Items.Add("Fountain City")
            lstBoxCity.Items.Add("Fowler")
            lstBoxCity.Items.Add("Frankfort")
            lstBoxCity.Items.Add("Frankton")
            lstBoxCity.Items.Add("Gaston")
            lstBoxCity.Items.Add("Geetingsville")
            lstBoxCity.Items.Add("Glenwood")
            lstBoxCity.Items.Add("Greencastle")
            lstBoxCity.Items.Add("Greens Fork")

        End If




    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'Calculate Random Prefix based upon selected city

        If lstBoxCity.SelectedItem.ToString = "Bethany" Then

            Dim Bethany As String() = {"298", "342", "443", "644", "712", "755", "759", "777", "779", "847"}
            Dim randomBethany As String = Bethany(CInt(Rnd(Bethany.Count)))

            MsgBox(randomBethany.ToString)

        End If
    End Sub
End Class

最佳答案

您需要在选择随机数之前调用Randomize()；否则你每次都会得到相同的随机数，因为种子是相同的，就像这样:

' Initialize the random-number generator.
Randomize()

Dim Bethany As String() = {"298", "342", "443", "644", "712", "755", "759", "777", "779", "847"}

' Generate random value between 1 and then length of your Bethany array
Dim randomBethany As String = Bethany(Int((Bethany.Count * Rnd()) + 1))

阅读Rnd Function (Visual Basic)获取更多信息。

关于vb.net - 随机索引生成器，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/20685534/

文章推荐： api - 如何使用 Bugzilla REST API 发布错误

文章推荐： asp.net-mvc - 在 Visual Studio 2010 上发布网站失败 (MVC3)

html - Z 索引 - 滑动过渡重叠有没有办法创建动态 z 索引？
这几天我一直在努力。我一直在自学 CSS，所以对菜鸟好一点。我正在创建一个推荐 slider 。推荐以 3 个 block 显示。我希望前 2 个下降，第 3 个上升。但是当 slider 激活时，无
node.js - 索引.ejs VS 索引.html
我最近开始学习 Nodejs，现在我很困惑我的网络应用程序使用什么，html 还是 ejs (Express)。 Ejs 使用 Express 模块，而 .html 使用 HTML 模块。我的第一个问
sql - 跨两列/数组的 PostgreSQL 搜索/索引(GIN 索引？)
假设我们有一个 PostgreSQL 表contacts，每条记录都有一堆带标签的电子邮件地址(标签和电子邮件对)——其中一个是“主要”。存储方式如下: id 主键电子邮件文本 email_la
Tesseract 索引 >= 0 && 索引 < size_used_ :Error:Assert failed Error
我成功为一种新的tesseract语言编写了traineddata文件，但是当我完成时，我继续收到以下错误: index >= 0 && index = 0 && 索引 < size_used_ :E
python - .loc[索引, 列] 和 .loc[索引][列] 之间有什么区别？
这个问题已经有答案了: How to deal with SettingWithCopyWarning in Pandas (21 个回答) 已关闭 4 年前。假设我有一个像这样的数据框，第一列“密
Android - 从位置 A(索引)检查位置 B(索引)是否在 GridView 布局中与它成对角线，而不管是否接近
如果我有一个位置或行/列同时用于 A 和 B 位置，请检查 B 是否与 A 成对角线？ 1 2 3 4 5 6 7 8 9 例如，我如何检查 5 是否与 7 成对角线？此外，如果我检查 4 是
MongoDB：索引
MongoDB：索引一、创建索引默认情况下，集合中的_id字段就是索引，我们可以通过getIndexes()方法来查看一个集合中的索引 > db.user.getIndexes() [ { "v
MongoDB——索引
一、索引介绍索引是一种用来快速查询数据的数据结构。 B+Tree就是一种常用的数据库索引数据结构，MongoDB采用B+Tree 做索引，索引创建在colletions上。 MongoDB不使用索引
SQLite 索引
我无法决定索引。就像我有下面的查询需要太多时间来执行: select count(rn.NODE_ID) as Count, rnl.[ISO_COUNTRY_CODE] as Cou
MySQL查询优化——索引
我有这些表: CREATE TABLE `cstat` ( `id_cstat` bigint(20) NOT NULL, `lang_code` varchar(3) NOT NULL,
mysql表性能升级(索引
我正在尝试找到一种方法来提高包含 IP 范围的 mysql 表的性能(在高峰时段每秒最多有 500 个 SELECT 查询(!)，所以我有点担心)。我有一个这种结构的表: id smallint(
jquery 索引()
jquery index() 似乎无法识别元素之一，总是说“无法读取未定义的属性‘长度’”这是我的代码。mnumber 是导致问题的原因。我需要 number 和 mnumber 才能跟踪使用鼠标，并
MongoDB 索引
我们有一个包含近 4000 万条记录的 MongoDB 集合。该集合的当前大小为 5GB。此集合中存储的数据包含以下字段: _id: "MongoDB id" userid: "user id" (i
MongoDB 索引
文档说:如果你有多个字段的复合索引，你可以用它来查询字段的开始子集。所以如果你有一个索引一个，乙，丙你可以用它查询一种一个，乙a,b,c 我的问题是，如果我有一个像这样的复合索引一个，乙，丙我可以查询
jQuery .each() 索引？
我正在使用 $('#list option').each(function(){ //do stuff }); 循环列表中的选项。我想知道如何获取当前循环的索引？因为我不想让 var i = 0;循
快速了解MySQL 索引
MySQL索引的建立对于MySQL的高效运行是很重要的，索引可以大大提高MySQL的检索速度。打个比方，如果合理的设计且使用索引的MySQL是一辆兰博基尼的话，那么没有设计和使用索引的MySQL
18、SQLite 索引
SQLite 索引（Index）索引（Index）是一种特殊的查找表，数据库搜索引擎用来加快数据检索。简单地说，索引是一个指向表中数据的指针。一个数据库中的索引与一本书后边的索引是非常相似的。
RavenDB MultiMap 索引
我是 RavenDB 的新手。我正在尝试使用多 map 索引功能，但我不确定这是否是解决我的问题的最佳方法。所以我有三个文件:Unit、Car、People。汽车文件看起来像这样: { Id: "
基于标准的 Excel 索引
我有以下数据，我想根据范围在另一个表中建立索引我想要实现的是，例如，如果三星的销售额为 2500，则折扣为 2%，低于 3000 且高于 1000 我知道它可以通过索引来完成，与多个数组匹配，然后指
SQL 索引 - 这是重叠的吗？
我正在检查并删除 SQL 数据库中的重复和冗余索引。所以如果我有两个相同的索引，我会删除。例如，如果我删除了重叠的索引... 索引1:品牌、型号指标二:品牌、型号、价格我删除索引 1。相同顺

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

vb.net - 随机索引生成器