编程题考试围(共10题).docVIP

1题目：请按照题目要求设计指定的窗体。 --------------------------------------------------------------------- 输入一个正整数数，判断其是否为素数，并用msgbox来显示结果。 例如输入23显示＇23是素数＇；输入21则显示＇21不是素数＇。 判断按钮：实现素数判断 Option Explicit Private Sub Command1_Click() Dim x As Integer x用来表示正整数 Dim i As Integer i用来作为循环变量 x = Val(Text1.Text) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i x - 1 Then MsgBox x 是素数 Else MsgBox x 不是素数 End If End Sub 2题目：请按照题目要求设计指定的窗体。 --------------------------------------------------------------------- 输入一个二进制数，将其转化为十进制数。 转换按钮：用于实现进制的转换 清空按钮：用于实现文本框的清空，同时将焦点定位在Text1中 Option Explicit Privat