Question

VB问题，求指教

1在窗体的click事件中编写程序：要求产生30个[1，99] (包括1和99)范围内的随机整数，分别统计个位上的数字为0的数的个数，个位上的数字为1的数的个数，并将统计结果显示在窗体上。
2、编写Form_Click（）事件过程，完成以下程序功能：利用随机函数Rnd生成15个1-100之间的整数，将它们在窗体上输出，要求分别统计出1～59（包括1和59）和60～100(包括60和100)数字的个数，并将个数打印在窗体上。

求给如何设置窗体，就是编程图一起给了 ，谢谢

Answer 1

一、

Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim n0 As Integer, n1 As Integer
For i = 1 To 30
    j = Int(99 * Rnd + 1)
    If Right(j, 1) = 0 Then
        n0 = n0 + 1
    ElseIf Right(j, 1) = 1 Then
        n1 = n1 + 1
    End If
Next i
Print "个位上的数字为0的数的个数：" & n0
Print "个位上的数字为1的数的个数：" & n1
End Sub

二、

Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim n1 As Integer, n2 As Integer
For i = 1 To 15
    j = Int(100 * Rnd + 1)
    Print j;
    If j <= 59 Then
        n1 = n1 + 1
    Else
        n2 = n2 + 1
    End If
Next i
Print
Print "1～59的数的个数：" & n1
Print "60～100的数的个数：" & n2
End Sub

Answer 2

你好,你这是很明显的阳虚自汗,可以服用中成药玉屏风散颗粒.
你所吃的药粥,也是可以服用的.坚持就会有效果.

您好：
建议您去医院找中医详细辩证治疗,对这种病中医有很好的疗效.