Question

VB编写程序，要求每次单击产生按钮即可产生一个两位数的整数，单击判断按钮时，判断刚产生的随机数的平方根是否为整数，怎么写代码

Answer 1

问：VB编写程序，要求每次单击产生按钮即可产生一个两位数的整数，单击判断按钮时，判断刚产生的随机数的平方根是否为整数，怎么写代码

答：您好，在窗体上放置一个按钮，命名为btnGenerate，一个标签控件，命名为lblResult，一个按钮，命名为btnCheck。在btnGenerate的单击事件中，写入以下代码：Private Sub btnGenerate_Click() Dim randomNum As Integer randomNum = Int(Rnd * 90 + 10) '产生10到99之间的整数 lblResult.Caption = randomNumEnd Sub在btnCheck的单击事件中，写入以下代码：

答：Private Sub btnCheck_Click() Dim squareRoot As Double squareRoot = Sqr(lblResult.Caption) '获取随机数的平方根 If squareRoot = Int(squareRoot) Then '判断平方根是否为整数 MsgBox "平方根为整数，符合要求！" Else MsgBox "平方根不为整数，不符合要求！" End IfEnd Sub上述代码中，Int(Rnd * 90 + 10)会产生一个10到99之间的整数，将其赋值给lblResult.Caption以便在窗体中显示出来。在btnCheck的单击事件中，通过Sqr(lblResult.Caption)获取随机数对应的平方根，并判断该平方根是否为整数。如果是，则弹出符合要求的提示框；否则，弹出不符合要求的提示框。需要注意的是，在窗体的Load事件中要添加以下代码以便产生不同的随机数序列：Private Sub UserForm_Initialize() Randomize '初始化随机数发生器End Sub

答：亲 看不清您的问题 用文字的方式表述哦

问：设计一个程序计算圆的面积，要求用inputbox函数输入半径，用msgbox输出面积值。

答：请参考以下代码：Dim radius As DoubleDim area As Doubleradius = InputBox("请输入圆的半径：")area = 3.14159 * radius * radiusMsgBox "圆的面积为：" & area

问：我问你的第一题，要求。判断语句出来的是:“……(所判断的那个数)的平方根是整数”比如啊，要求判断85，出来的就是85的平方根不是整数。这样的怎么弄？

答：MsgBox "平方根为整数，符合要求！" Else MsgBox "平方根不为整数，不符合要求！" End IfEnd Sub上述代码中，Int(Rnd * 90 + 10)会产生一个10到99之间的整数，将其赋值给lblResult.Caption以便在窗体中显示出来。

问：不对，要求出来的是“……的平方根是/不是整数。”

答：Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim rand As New Random() Dim num As Integer = rand.Next(10, 100) Label1.Text = num.ToString() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim num As Integer = Integer.Parse(Label1.Text) Dim sqrt As Double = Math.Sqrt(num) If Math.Floor(sqrt) = sqrt Then Label1.Text = "是" Else Label1.Text = "否" End If End SubEnd Class

答：结果改为文本输出 是 否就可以

问：不对，判断是否为整数的是标签，不是文本框。这个不能改的。

答：不是文本框呀 是显示是 和 否的标签 ，因为是和否是属于文本 不是代码

答：要显示是 和 否 还是说显示出实际的数字

答：要显示实际结果就是第一个 显示是和否 就是最后这个

答：那就还是数字输出了呀

答：Public Class Form1 Dim rand As New Random ' 随机数生成器 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim num As Integer = rand.Next(10, 100) ' 生成10到99之间的随机数 Label1.Text = "生成的随机数为：" & num End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim num As Integer = Integer.Parse(Mid(Label1.Text, 9)) ' 获取上一个随机数 Dim root As Double = Math.Sqrt(num) ' 计算随机数的平方根 If root = Math.Floor(root) Then ' 判断平方根是否为整数 MsgBox(num & "的平方根为整数！") ' 弹出消息框 Else MsgBox(num & "的平方根不是整数。") ' 弹出消息框 End If End SubEnd Class

答：在窗体上放置两个按钮 Button1 和 Button2，以及一个标签 Label1，然后将上述代码复制到窗体代码文件中即可。当单击生成随机数按钮 Button1 时，程序会随机生成一个10到99之间的整数，并在标签 Label1 中显示出来。当单击判断平方根按钮 Button2 时，程序会根据 Label1 中的随机数计算平方根，并判断是否为整数，最后通过弹出消息框来提示用户结果。