搜题请搜索小程序“爱下问搜题”
问题 问答题 简答题

流通加工有很多优势，但为什么在设置流通加工点前，还必须进行可行性分析？

答案

参考答案：为避免流通加工过程中的各种不合理现象，使流通加工有存在的价值，对是否设置流通加工环节；在什么地方设置；选择什么类型的流通加工；采用什么样的技术装备设施等，都需要做出正确抉择。

问答题

在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Dim stepy As Integer ’纵向移动增量
Dim stepx As Integer ’横向移动增量
Const LEFT_BUTTON=1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer
radius=Shape1.Width/2 ’圆的半径
If Button=LEFT_BUTTON Then
x0=Shape1.Left+radius ’圆心的x坐标
y0=Shape1.Top+radius’圆心的y坐标
If x=x0 Then
stepy=Sgn(y-y0)*50
stepx= (1)
Else
a=(y-y0)/(x-x0)’斜率
stepx=Sgn(x-y0)*50
(2) =a * stepx
If Abs(stepy)＞Abs(stepx) Then
stepy=Sgn(y-y0)*50
stepx=stepy/a
End If
End If
(3) =True
Else
(4) =False
End If
End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left+stepx, Shape1.Top+ (5)
End Sub
查看答案
单项选择题

下列土石材料中，不能直接用作路基填料的是( )。

A．砂土质砾石

B．有机质土

C．巨粒土

D．碎石土
查看答案