VB编程年会抽奖代码？

语言实现此程序。

以下是VB编程语言的实现示例：

'定义变量，存储每个奖项的人数

Dim firstPrize As Integer = 3

Dim secondPrize As Integer = 5

Dim thirdPrize As Integer = 12

Dim souvenirPrize As Integer = 10

'定义变量，存储抽奖结果

Dim firstPrizeList As New List(Of Integer)

Dim secondPrizeList As New List(Of Integer)

Dim thirdPrizeList As New List(Of Integer)

Dim souvenirPrizeList As New List(Of Integer)

'定义变量，存储编号滚动的起始编号

Dim currentNum As Integer = 1

'循环抽取各种奖项

For i As Integer = 1 To firstPrize

'抽取一等奖，并将编号添加到一等奖名单中

firstPrizeList.Add(currentNum)

currentNum += 1

Next

For i As Integer = 1 To secondPrize

'抽取二等奖，并将编号添加到二等奖名单中

secondPrizeList.Add(currentNum)

currentNum += 1

Next

For i As Integer = 1 To thirdPrize

'抽取三等奖，并将编洞派号添加到三等奖名单中

thirdPrizeList.Add(currentNum)

currentNum += 1

Next

For i As Integer = 1 To souvenirPrize

'抽取纪念奖，并将编纳档贺号添加到纪念奖名单中

souvenirPrizeList.Add(currentNum)

currentNum += 1

Next

'输出抽奖结果

Console.WriteLine("一等奖名单：" &String.Join(",", firstPrizeList))

Console.WriteLine("二等奖名单：" &String.Join("蠢凯,", secondPrizeList))

Console.WriteLine("三等奖名单：" &String.Join(",", thirdPrizeList))

Console.WriteLine("纪念奖名单：" &String.Join(",", souvenirPrizeList))

import java.util.Scanner

/**

 *

 */

public class f {

    public static void main(String args[]){

        Scanner scan = new Scanner(System.in)

        System.out.print("请输入抽奖号码上限:")

      渣卖蔽  int max = scan.nextInt()

        System.out.print("请输入抽奖次数："配碧)

        int n = scan.nextInt()

        System.out.print("中奖号码依次为:")

        for(int i=0i<ni++){

            System.out.print((int)(Math.random()*max+1)+" ")

      如州  }

    }

}

用data.txt文件保存以下内容：

13725528132 李桂荣

13725528131 李二来

13725528133 张荣刚

13725528130 荣南

13725528137 王三

13725528138 吴立

13725528139 郭德纲

13725528140 周星驰

13725528141 张曼玉

13725528142 张艺谋

13725528152 秦香莲

13725528162 潘金莲

13725528172 李大嘴

13725528182 展堂

//源代码如下

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

#define MAX_NUM 9999

//定义保存人名和电话的数据结构

struct Person

{

char name[20]

char telno[15]

char award

}

int num = 0//统计人数

FILE *fp//文件指针

Person persons[MAX_NUM]//定义数组

int awarder_1[1] = {-1}//一等奖

int awarder_2[2] = {-1, -1}/弊让毁/二等奖

int awarder_3[5] = {-1, -1, -1, -1, -1}//三等奖

//读取文件

void readdata()

{

int i = 0//数组下标

Person person

//文件打开

fp = fopen("data.txt", "r")

if (fp == NULL)

{

printf("打开文件data.txt失败!\n")

return

}

//当文件不为空

while (!feof(fp))

{

num ++

fscanf(fp, "%s", person.telno)

fscanf(fp, "%s", person.name)

person.award = 'F'

persons[i++] = person

}

}

//初始化标识

void init()

{

for(int i = 0i <numi++)

{

persons[i].award = 'F'

}

}

//显示单个中奖信息

void info( int i)

{

printf("手机号码: %s 姓名: %s\n", persons[i].telno, persons[i].name)

}

void main()

{

char again = 'Y'

//读取文件

readdata()

printf("简单抽奖程序\n")

srand((long)time(0))

while(again == 'Y' || again == 'y')

{

//初始化标识

init()

printf("\n开始抽第一等奖(1名)，按任意键开始...\n")

getchar()

awarder_1[0] = abs(rand() % num)

while (persons[awarder_1[0]].award == 'T')

{

awarder_1[0] = rand() % num

}

persons[awarder_1[0]].award = 'T'

info(awarder_1[0])

printf("\n开始抽第二等奖(2名)\n")

for (int i = 0i <2i++)

{

printf("\n第%d个二等奖,按任意键开始...\n", i+1)

getchar()

awarder_2[i] = rand() % num

while (persons[awarder_2[i]].award == 'T'滑缓)

{

awarder_2[i] = rand() % num

}

persons[awarder_2[i]].award = 'T'

info(awarder_2[i])

}

printf("\n\n开始抽第三租备等奖(5名)\n")

for (i = 0i <5i++)

{

printf("\n第%d个三等奖,按任意键开始...\n", i + 1)

getchar()

awarder_3[i] = rand() % num

while (persons[awarder_3[i]].award == 'T')

{

awarder_3[i] = rand() % num

}

persons[awarder_3[i]].award = 'T'

info(awarder_3[i])

}

printf("\n是否重新开始抽奖?(Y or N)...\n")

again = getchar()

}

getchar()

return

}

---