Visual Basic 6.0软件1、设计公园买票程序，实现身高1.2米以上买全票10元，1.2米以下免票0元。怎么写

Dim 身高 As Single, 票价 As Integer

Private Sub Form_Click()

MeCaption = "设计公园买票程序"

身高 = InputBox("身高12米以上每票10元,12米以下每票0元(单位：米)", "请输入一数字表示身高", "", 10)

If 身高 >= 12 Then

  票价 = 票价 + 10

'ElseIf 身高 < 12 Then 票价 = 0

End If

 MsgBox "共掏出" & 票价 & "元。"

End Sub

Private Sub Form_Load()

MeCaption = "设计公园买票程序"

MeMousePointer = 3: 票价 = 0

MsgBox "单击公园买票窗口后计算票价"

End Sub

12306微信小程序买票方法如下：

工具：华为畅享20、HarmonyOS200、微信8027。

1、打开手机的微信，输入并点击铁路12306。

2、点击上面的查询车票选项。

3、选择上面的车次。

4、最后可查看到车票无法购买，只能查看车票是否有票。

12306购票的基本常识

1、火车订票网12306官网每天的订票时间为7点至23点，用户在这个时间段内可以预订火车票，其他时间只能 *** 作查询车次、余票等信息。发车前2小时内用户就不能再在订票网12306官网上预订火车票了，用户必须去火车站购买火车票。

2、用户在火车订票网12306订票官网上购票前，需要先进行注册。注册信息中必须填写乘客的真实信息，包括姓名、身份z件号码、邮箱地址等。注册后还需要将账户激活，以及下载根证书，否则是无法在火车订票网12306订票的。

3、用户在火车订票网12306官网订票时，只能使用二代居民身份z、港澳居民来往内地通行证、台湾居民来往大陆通行证和按规定可使用的护照这四种有效身份z件。

1、沿海地区如山东到韩国，可选择坐轮船；再比如说在上海，从浦西到浦东也可以选择轮渡来横渡黄浦江；轮渡可直接在售票点购买通行牌或直接刷公交一卡通，如需飘洋过海，可以报个旅行社，他们会统一购票的。

2、一般省内出行或周边，人们喜欢选择乘坐汽车，一则汽车时间不固定，二则每天的车次多，三价格适中；不需要提前买票，直接到长途汽车站或售票点即可购买。

3、去稍远点的地方，可以选择坐火车，火车的安全性能比较高，价格比较平民，可以在网上购买，电话订票，代售点购票（需付5元/张的手续费）或是火车站直接购买。备注：因现在火车票实行实名制，所以购票时务必随身携带好身份z或其它有效证件。

4、偏远点的地方或者赶时间的话，可以选择飞机，这是最快的一种出行方式。可以在如携程/去哪儿之类的网站上购买飞机票，也可以到各航空公司的售票点购买。（飞机票会有一定的折扣，一般情况来说，越早买折扣越大。）

Systemoutprintln("a == b : " + (a == bintValue()));

Systemoutprintln("b ==c : " + (b == c));

Systemoutprintln("e == (c + d) : " + (eintValue() == cintValue() + dintValue()));

Systemoutprintln("eequals(c + d) : " + eequals(IntegervalueOf(cintValue() + dintValue())));

Systemoutprintln("h == (c + d) : " + (hlongValue() == cintValue() + dintValue()));

Systemoutprintln("hequals(c + d) : " + hequals(IntegervalueOf(cintValue() + dintValue())));

Systemoutprintln("f == g : " + (f == g));

Systemoutprintln("m == n : " + (m == n));

Systemoutprintln("p == q : " + (p == q));

Systemoutprintln("m == d 2 : " + (mdoubleValue() == dintValue() 2));

Systemoutprintln("p == (d + e) : " + (pfloatValue() == dintValue() + eintValue()));

坐火车的程序基本一样，跟乘坐次数没有关系，大致程序如下：

1、购票 火车票是乘坐火车的必备条件之一，购票方法有三种：①互联网订票；②电话订票；③窗口订票，推荐互联网订票，这样就可以凭借自己的身份z就可以在自动售票机上取出车票，这样可以节省不少时间。

2、安检进站 任何旅客都需要持自己的身份z和火车票才能进入火车站，按照车站要求进行安检，这个过程很简单；3、候车 进入车站之后根据自己的车票车次及车站指示牌的提示，到相应的候车室候车，注意车站的广播，当目标车次到达时会有广播提示，耐心等待验票上车即可；4、上车 上车时需要注意自己的个人物品，以防丢失。

>

由于小孩身高超过了15米，因此需要购买成人火车票，身份z号码的填写与小孩户口簿上的一致。

购票过程如下：

1、在12306官网上填写儿童基本信息

超过15米的儿童在网上买成人火车票，与成人买票程序相同，在户口簿上有儿童的身份z号码，正确填写旅客身份类别和身份z号码。注意在勾选栏要填写成人票，最后显示购票成功。

2、牢记订单号码，带上户口簿到火车站取票窗口取票。

//groupposcpp

#include<stdioh>

#include<malloch>

#include<stringh>

#include <iostreamh>

#define TabSize 2000003 /散列表大小TabSize 是大于表最大空间的素数/

#define Max 1000001 /队列空间最大值/

class hashtab /散列表数据结构/

{public:

char name[5]; /名字/

int group; /属于哪个朋友组/

char info; /标志位，该单元是否被占用/

};

class PtrToHash:public hashtab{};

class Que /队列数据结构/

{public:

long int HashVal; /散列值/

long int Index; /在中的队列序号/

};

class PtrToQue:public Que{};

int hashedx=0; /标记元素是否已经在散列表里/

long int Find(PtrToHash hash,char c) /查找在散列表中的位置/

{

char key;

long int CurrentPos,CollisionNum;

key=c;

for(CurrentPos=0;key;++key) /散列函数，计算散列值/

CurrentPos=(CurrentPos<<6)+key;

CurrentPos%=TabSize; /散列值/

CollisionNum=0;

/如果当前单元被占用：单元内的元素与当前 *** 作的名字不同，使用平方探测法解决冲突；

与当前 *** 作的名字相同，则直接返回在散列中的位置/

while((hash[CurrentPos]info)&&(strcmp(hash[CurrentPos]name,c)))

{ /平方探测法/

CurrentPos+=2(++CollisionNum)-1;

if(CurrentPos>=TabSize)

CurrentPos-=TabSize;

}

if((hash[CurrentPos]info)&&(strcmp(hash[CurrentPos]name,c)==0)) /元素已经在散列表里/

hashedx=1;

else /元素不在散列表里/

hashedx=0;

return CurrentPos;/返回在散列表中的位置/

}

void main()

{

long int Find(PtrToHash hash,char c); /查找在散列表中的位置/

PtrToHash hash; /散列表/

PtrToQue queue; /队列/

int grouppos; /记录每个朋友组的最后一位，即插队数组/

int n; /测试用例数目/

int num; /当前测试用例序号/

long int i,ii,j,key,temp;

long int head,last; /队列的头和尾/

char c[8],tempc[8]; /名字/

hash=(PtrToHash)malloc(sizeof(hashtab)TabSize);

queue=(PtrToQue)malloc(sizeof(Que)Max);

grouppos=(int )malloc(sizeof(int)1000);

for(i=0,j=1;i<Max;++i,++j) /初始化队列，queue[i]的后继单元是queue[i＋1]/

queue[i]Index=j;

queue[i-1]Index=0; /最后一个单元的后继单元是第0个，形成环/

num=0;

cout<<"输入当前测试用例的朋友组数:"<<endl;

for(cin>>n;n;cin>>n)/输入当前测试用例的朋友组数/

{

if(n<1||n>1000) /处理异常输入n/

{

cout<<"n is out of range!"<<endl;

}

num++;

if(num!=1) /两个测试用例间输入一空行/

cout<<"\n";

for(i=0;i<TabSize;)

hash[i++]info=0; /初始化散列表，标记位置0/

for(i=0;i<n;++i) /对每一组朋友/

{

cout<<"当前组里的人数:"<<endl;

cin>>j; /当前组里的人数/

if(j<1||j>1000) /处理异常输入j/

{

cout<<"j is out of range!"<<endl;

}

for(;j;--j)

{

cout<<"输入名字:"<<endl;

cin>>c; /输入名字/

for(ii=0;ii<sizeof(tempc);ii++) /tempc清空，处理异常输入名字/

tempc[ii]='\0';

strcpy(tempc,c);

ii=0;

while(tempc[ii]!='\0') / 是否由四个以内字母组成/

{

if(tempc[ii]<'A'||('Z'<tempc[ii]&&tempc[ii]<'a')||tempc[ii]>'z'||ii>4)

{

cout<<"Group"<<i<<":Not standard name"<<endl;

}

ii++;

}

key=Find(hash,c); /找到在散列表中的位置/

if(hashedx==1) /重名/

{

cout<<"Repeated name"<<" "<<c<<endl;

}

else

{

strcpy(hash[key]name,c);/插入散列表/

hash[key]info=1; /标记置1，该单元被占用/

hash[key]group=i; /记录他属于哪个组/

}

}

}

for(i=0;i<1000;)

grouppos[i++]=0; /初始化插队数组/

head=0;/初始化队列头、尾标记/

last=0;

for(cout<<"输入命令:I入队/O出队"<<endl,cin>>c;;cout<<"输入命令:I入队/O出队"<<endl,cin>>c) /输入命令/

{

if(c=='I'||c=='i')/入队命令/

{

cout<<"输入名字"<<endl;

cin>>c; /输入名字/

key=Find(hash,c);/查找在散列表中的位置/

if(hashedx==0) /散列表里没这个人/

{

cout<<"no"<<c<<endl;

}

temp=queue[0]Index; /队列第0个位置记录队尾的后继单元/

queue[0]Index=queue[temp]Index; /在队列中申请一个新单元，队尾标记后移一个位置 /

queue[temp]HashVal=key; /入队/

if(!head) /如果是队列里的第一个元素 /

last=head=temp; /队头、队尾标记指向第一个元素/

if(!grouppos[hash[key]group]) /如果队列里没朋友/

{

queue[temp]Index=0; /队尾指向对头，形成环/

queue[last]Index=temp;/前一次队尾的后继元素是当前元素/

last=temp; /队尾标记指向当前元素/

grouppos[hash[key]group]=temp;/插队数组记录该朋友组里已入队的最后一位/

}

else/如果队列中已经有他的朋友/

{

queue[temp]Index=queue[grouppos[hash[key]group]]Index;

/插队到朋友的后面/

queue[grouppos[hash[key]group]]Index=temp;

/插队到朋友后面一位的前面/

grouppos[hash[key]group]=temp;

/替换插队数组里该组的元素为当前元素/

if(hash[queue[last]HashVal]group==hash[key]group)

/如果当前元素和前一元素是朋友，队尾标志指向当前元素/

last=temp;

}

}

else if(c=='O'||c=='o') /出队命令/

{

if(last==0) /不能对空队列执行出队命令/

{

cout<<"Empty queue!\nCan't execute DEQUEUE!"<<endl;

}

else

{

cout<<hash[queue[head]HashVal]name<<endl;/输出队头元素到文件/

temp=head;

head=queue[temp]Index; /队列第一位出队，队头标记后移一位/

queue[temp]Index=queue[0]Index; /队列第0个元素后移一位/

queue[0]Index=temp; /释放空间/

if(grouppos[hash[queue[temp]HashVal]group]==temp)

/当前删除的元素是该朋友组在队列里的最后一位/

grouppos[hash[queue[temp]HashVal]group]=0;

if(last==temp) /出队后，队列为空/

last=0;

}

}

else /输入 "STOP"/

break; /测试结束/

}

}

}

以上就是关于Visual Basic 6.0软件1、设计公园买票程序，实现身高1.2米以上买全票10元，1.2米以下免票0元。怎么写全部的内容，包括:Visual Basic 6.0软件1、设计公园买票程序，实现身高1.2米以上买全票10元，1.2米以下免票0元。怎么写、如何通过微信小程序购买火车票、交通出行　买票程序…等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！