题目内容

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【】 End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

算法的工作量大小和实现算法所需要的存储单元分别称为算法的【】。

下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。 Private Sub iommand1_ Click () Dim passwor As String password = Text1. Text if password = "Myname" then 【】 form1. Show Else d = MsgBox(【】) Refresh End if End Sub Private Sub command2_ Click() 【】 End Sub 在图1的窗体中，文本框对象的名称属性是【】。

安装机电单元前，换挡执行器推杆调出长度标准时多少毫米()

A. 25mm
B. 20mm
C. 30mm
D. 18mm

下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d：\stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。 Type student No As Long Name As String * 20 English As Integer End Type Private Sub form_ Click () Dim k As student, i As Integer 【】 Open "d:\stu1. dat" for Random As 10 Len = Reclen for i = 1 To 5 k. No= InputBox(“请输入学号”) k. Name = InputBox (“请输入姓名”) k. English= InputBox (“请输入英语成绩”) 【】 Next i 【】 Print k. No; k. Name; k. English Close 10 End Sub