Question

求大神写些简单程序让我参考参考，vb基础编程，把每一题的程序写下来 题是文档上的题，只要代码就好

一、实验项目名称：选择结构和循环结构（二）
二、实验目的：
1．掌握If语句的使用。
2．掌握For…Next语句与Do…Loop语句的使用。
3．掌握如何设计循环条件，防止死循环或不循环。
4．掌握循环嵌套的使用方法。
三、实验内容：
第1题 输入一个数，判断是否为素数并给出判断结果。初始界面如图1所示。

图1 第1题初始界面

第2题 利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
要求：
1）程序初始界面如图2（a）所示。用户输入总只数和总脚数，单击“计算”命令按钮，将求得的鸡和兔的数目分别在只读文本框中输出。
2）当输入的总脚数n为奇数时，或总脚数小于总只数的2倍，或总脚数大于总只数的4倍时，弹出提示框，显示出错信息和出错原因，并要求重新输入数据，如图2（b）所示。

（a）第2题初始界面

（b）第2题数据输入错误提示
图2 第2题图

第3题 编写程序，显示出所有的水仙花数。水仙花数是指一个三位数，其各位数字立方和等于该数字本身。例如，153=13+53+33。本题界面自行设计。
可使用下列三种方法之一：
1）利用三重循环，将三个数连接成一个三位数进行判断。
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
s = i * 100 + j * 10 + k
判断......
Next k
Next j
Next i
2）利用单循环将一个三位数逐位分离后进行判断。
For i = 100 To 999
a = i \ 100 ‘百位
b = i \ 10 Mod 10 ‘十位
c = i Mod 10 ‘个位
判断......
Next i
3）将三位数转换成字符串，使用字符串的Left、Right和Mid函数取出三位数的个位、十位、百位，再进行判断。
提示：使用字符串函数时需注意：正数使用Str函数转换成字符串时，前面有一个空格符。

第4题 一个富翁试图与陌生人做一笔换钱生意，换钱规则为陌生人每天给富翁10万元，直到满一个月（30天）；而富翁第一天给陌生人1分，第二天给2分，第三天给4分，富翁每天给陌生人的钱是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少，本题界面自行设计。
提示：
1）正确的结果是：陌生人给富翁的钱为：3000000元，富翁给陌生人的钱为：10737418.23元。看看你的程序是否算对了？
2）将存放富翁给陌生人的钱的变量分别定义为单精度和双精度，看看有何差别？

第5题 编程显示如图3所示的界面。将图形显示在标签中，将代码写在窗体的Click事件过程中。

图3 第5题运行结果
提示：打印由多行组成的图案，通常采用双重循环，外层循环用于控制行数，内层循环用于输出每一行的信息。

第6题 计算的近似值，的计算公式为

要求：分别输出当n=100、1000、10000时的结果。程序初始界面如图4所示。

图4 第6题初始界面

第7题 猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少个桃子？本题界面自行设计。
提示：
1）本题既可以使用For…Next语句，也可以使用Do…Loop语句。
2）第1天的桃子数为1534个。

第8题 有1、2、3、4四个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？将代码写在Button1的Click事件过程中，将结果显示在Label1中
提示：符合条件的数共有24个。

Answer 1

安装个VB环境，实际运行1下你写的程序，系统会给你提示的，有时候例子也不1定准确，老师只会依照逻辑严谨的方式教学。