题目内容
（请给出正确答案）
提问人：网友zsmsolelove
发布时间：2022-01-07
[主观题]
请使用Visual Studio作为程序的开发环境，将源代码粘贴...
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 给定一个日期(年、月、日)，求出那天是那年的第几天。界面如下：
提示： 1）编写一个函数判断某一年是否是闰年。满足下列条件之一的年份为闰年：① 能被4整除，但不能被100整除；② 能被400整除。 Private Function LeapYear(ByVal Year As Integer) As Boolean 如果是闰年，返回值为True，如果不是闰年，返回值为False 2）编写一个函数，给定年份和月份，返回这个月的天数。此函数需调用LeapYear函数。 Function daynum(ByVal year As Integer, ByVal month As Integer) As Integer 3）命令按钮的代码如下： Dim year%, month%, day%, i%, num% year = TextBox1.Text month = TextBox2.Text day = TextBox3.Text num = day For i = 1 To month - 1 num = num + daynum(year, i) Next TextBox4.Text = num
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
抱歉！暂无答案，正在努力更新中……
（a）程序启动后的界面 （b）点击“开红包”命令按钮后弹出的消息框 提示： 假设你想产生0~200之间的、保留两位小数的红包，则代码如下： Dim RedPacket As Single Randomize() RedPacket = Math.Round(Rnd() * 200, 2) MsgBox(RedPacket & "元", , "恭喜") 这里MsgBox函数的第1个参数中的“&”符号是字符串连接运算符，用于将两个字符串连接成一个字符串。 请同学们试试产生任意范围的整数或实数金额的写法。
提示： 1）编写一个判断素数的函
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 在窗体中有四个标题分别为“电脑”、“电视机”、“手机”和“打印机”的复选框。用户选择所需购买的商品后，单击“确定”命令按钮，则将在文本框中显示用户准备购买的商品。程序运行界面如下图所示。
点击查看答案
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 在窗体上有一个写有2018年度优秀学生姓名的文本框，在另一个文本框中输入一个同学的姓名，单击“我是优秀学生吗？”命令按钮，则弹出消息框告诉用户此人是否是优秀学生。程序界面如下图所示。
点击查看答案
（a）程序启动后的界面 （b）计算总分后的界面 提示： 1）将用于输出总分的标签的AutoSize属性值设置为False，BorderStyle属性值设置为Fixed3D。 2）本题需要编写代码的事件过程为命令按钮的Click事件过程。设输入单项分数的文本框的名称分别为TextBox1、TextBox2和TextBox3，输出总分的标签的名称为Label5，则需要编写的语句如下： Label5.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) 其中，Val为一个系统内部函数，其作用是将一个数字字符串转换为数值型数据。
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 编写一个计算圆的面积的程序。窗体中有一个初始为空的文本框和初始为空的标签，当用户在文本框中输入圆的半径的时候，在标签中自动显示对应的圆的面积值。程序界面如下图所示。
点击查看答案
提示： 1）设置图片框的SizeMode属性值为StretchImage。到网上去下载一幅你喜欢的图片，通过在属性窗口设置图片框的Image属性值将图片加载进图片框。 2）通过修改图片框的Height属性值来改变图片框的高度；通过修改图片框的Width属性值来改变图片框的宽度。例如，“放大”按钮Button1的代码如下： Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click PictureBox1.Height = PictureBox1.Height + 10 PictureBox1.Width = PictureBox1.Width + 10 End Sub “缩小”按钮Button2的代码请自己完成。
