下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option

Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer 【】 For i=100 To 999 x=i x1=【】个位数字 x2=x\10 Mod 10 x3=x\100 If【】Then Print i End If Next i End Sub

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该…”相关的问题

第1题

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。

Private Sub Check1_Click() If Check1．Value=【】Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click() Text1．【】 End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第2题

为了使计时器控件Timer1每隔0.5s触发一次Timer事件，应将Timer1控件的Interva1属性设置为【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第3题

下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。 Private Sub Form_Click() Dim k As Integer Open【】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【】 Next i 【】 End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click() Dim s As Long,i As Integer s=0 For i=1 To 10 s=s+【】 Next i Print s End Sub Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i 【】 End Function

请帮忙给出正确答案和分析，谢谢！

点击查看答案